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PREFACE 



This manual contains a comprehensive description of the PDP-11 
Resource Time-Sharing System, RSTS-11. It is organized for the bene- 
fit of the beginning programmer, as it allows the reader to gradually 
acquire increased programming capabilities. 

The BASIC-Plus language is an extension of BASIC as originally 
developed at Dartmouth College. The experienced BASIC programmer may 
find the appendices sufficient for his use. However, BASIC-Plus of- 
fers many features not found in standard Dartmouth BASIC or any other 
version of BASIC. 

BASIC-Plus incorporates the following special features: 

1. Matrix Confutations, a special set of 13 commands are 
available for performing matrix computations. 

2. Alphanumeric String Capabilities, alphabetic and/or 
alphanumeric strings can be manipulated with the same 
ease as numeric data. Individual characters within 
these strings can be easily accessed by the user. 

3. Program Control and Storage Facilities, facilities 
are included for storing both programs and data on 
any mass storage device (such as DECdisk or DECtape) 
and later retrieving them for use during program exe- 
cution. Programs can be entered from the RSTS termi- 
nal paper tape reader as well as from the high-speed 
paper tape reader available on the computer. The 
manipulation of non-disk data files is a totally new 
concept in BASIC programming and will be greatly 
appreciated by the more experienced BASIC programmer. 
Lack of data storage facilities has always hampered 
BASIC from becoming as useful a language as, for 
example, FORTRAN. With this ability and the ease of 
learning the BASIC language, the new user has an ex- 
tremely powerful tool at his command. 

4. Program Editing Facilities, an existing program can 
be edited by adding or deleting lines, renaming the 
program, or resequencing the line numbers. The user 
can combine two programs into a single program, and 
request the listing of a program, either in whole or 
in part on his terminal or on a line printer. 

5. Formatting of Output, controlled formatting of program 
output includes facilities for tabs, spaces, and the 
printing of column headings, as well as precise speci- 
fication of the output line formatting. 
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6. Immediate Mode of Operation, commands typed by the 
user are immediately executed by BASIC-Plus instead 
of being stored for later execution. 

7. Access to System Peripheral Equipment, the user pro- 
gram is able to perform input and output with various 
equipment, such as paper tape reader/punch, disk, DEC- 
tape, line printer, and card reader. Other peripherals 
will be available on the system in the future. 

8. Documentation and Debugging Aids, the insertion of 
remarks and comments within a program is made some- 
what more simple in this version of BASIC. Debugging 
of programs is aided by the printing of meaningful 
diagnostic messages which pinpoint syntactical and 
other errors detected during the program execution. 

A minimum RSTS-11 system requires a PDP-11/20 computer, user term- 
inals for program input and output, and a sufficient amount of program 
storage area (core memory, usually 20K} to accommodate several users 
simultaneously. Mass storage devices (DECtape and DECdisk) are in- 
cluded on the standard system, although additional mass storage can 
be connected at a later date. The system will support additional 
core. Extended Arithmetic Element, line printer, card reader, and 
high-speed reader/punch. 
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PART I 



RSTS-11 AND THE BASIC LANGUAGE 



This first of three parts describes the RSTS-11 system, 
its hardware and user features, and the simplest level of 
the BASIC language. BASIC as described in this part is 
essentially Dartmouth BASIC as originally developed. 
Part II describes the extended capabilities of BASIC-Plus. 
As part of the introductory material, the reader will find 
references to some of the extended capabilities. 

As a language, BASIC is easy to learn. BASIC-Plus 
allows for capabilities to keep BASIC a useful tool for the 
more sophisticated programmer. BASIC does not, however, 
penalize the beginning user. Almost any problem can be 
solved with the statements available in Part I. The state- 
ments and features in Part II allow the user to write more 
efficient code and better use his time and core space. 



CHAPTER 1 



AN INTRODUCTION TO RSTS-11 



Although a computing system such as RSTS-11 is a complicated 
arrangement of interrelated computer programs, the RSTS-11 user need 
only be concerned with the writing and execution of programs in the 
BASIC-Plus language. This manual, therefore, assumes that the user 
is always (and only) communicating with BASIC. 



1.1 INTRODUCTION TO PROGRAMMING 

For the benefit of the new programmer approaching his first com- 
puting experience, there are four phases in programming a computer: 

a. writing the computer program, 

b. entering the program to the computing system, 

c. testing and debugging the program, and 

d. running the finished program. 

BASIC-Plus is the language in which the user writes programs 
designed for the RSTS-11 system. Input of the completed program is 
generally performed from the terminal keyboard on a time-sharing sys- 
tem. A program can be input through various peripheral devices, such 
as the paper tape reader, magnetic tape (DECtape) , or punched cards; 
however, the initial creation of a BASIC program is usually performed 
on-line to the computer with the terminal keyboard. 

Ideally, a program runs correctly as written, but in practice 
this is seldom the case. A program can contain simple typing mistakes 
or complex logical errors. Typing and syntactical errors are detected 
as the program is first typed at the keyboard and appropriate error 
messages are printed. BASIC-Plus also evaluates the entire program 
for commonly made errors and generates messages which explain the 
mistakes to the user. Program errors are corrected on-line from the 
terminal keyboard. 

The testing and debugging process is continued until the program 
appears to execute correctly. This is a good time to explain to the 
new user that a computer program only does what the programmer has 
written. The calculations performed by the computer are not necessar- 
ily those that will produce the correct results. In order to obtain 
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correct results from a computer, the user must write a program which 
is not only free of detectable errors, but one which correctly 
analyzes his problem. 

RSTS-11 provides keyboard commands which enable the user not only 
to create and execute his program but also to save the program within 
the system for later retrieval and execution or modification. This 
saving process is known as storing or filing the program. 

1.2 THE BASIC -PLUS PROGRAMMING LANGUAGE 

BASIC-Plus (which is hereafter referred to simply as BASIC in 
most cases) is one of the simplest of all programming languages be- 
cause of its small number of powerful but self-explanatory statements 
and commands and its easy application in solving problems. Its wide 
use in scientific, business, and educational installations attests to 
its value and straightforward application. 

BASIC is similar to many other programming languages in various 
respects (and is, consequently, very easy for the experienced program- 
mer to learn) , but is especially suited for time-sharing because of 
its conversational nature. A conversational language is one which 
allows the user to communicate with the language processor by typing 
on the terminal keyboard. BASIC responds by printing on the terminal 
printer, providing for an interactive man/machine relationship. 

BASIC-Plus contains both elementary statements used to write 
simple programs and advanced programming techniques and statements to 
write complex and efficient programs. The key word here is not com- 
plex, but efficient. As the user progresses and gains programming 
experience, he will naturally find himself becoming more efficient 
and able to use the more sophisticated data manipulations. Almost 
any problem can be solved with the simple BASIC statements. Later 
in the user's programming experience, the advanced techniques can be 
added. 

1.3 CONVENTIONS USED IN THIS MANUAL 

Certaih documentation conventions are used throughout this manual 
to clarify examples of BASIC syntax. Each BASIC statement is described 
at least once in general terms using the following conventions: 

a. Angle brackets indicate essential elements of the 
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statement or command being described. For example: 

line number LET <variable> = <expre3sion> 

b. Square brackets indicate a choice among two or more 
possibilities. For example: 

ITHEN <statement> \ 
line number IF <expression> |THEN <line number>\ 

[GOTO <line number>j 

c. Braces indicate optional matter or a choice among 
optional elements: 

^HEN <statement> fELSE <statement> 
line number IF <exipression> ITHEN <line number> . 

GOTO <line number> 



(ELSE <line number> 



d. Items in lower case type {formula, variable , etc., above) 
are supplied by the user according to rules explained in 
the test. Items in capital letters (LET, IF, THEN, etc.) 
must appear exactly as shown because they form the BASIC 
language. 

e. The term line number used in examples (as in (c) above) 
indicates that any line number is valid. 

The use of some terms in this document may be unfamiliar to the 
new user. The following definitions and explanations are valid 
throughout this manual: 

a. BASIC (that is, the computer) prints on the teleprinter 
whereas the user types on the keyboard. 

b. A statement is a line (or part of a line or multiple 
lines in some cases, see sections 2.3.1 and 2.3.2) 
within a user program containing a BASIC language 
instruction. Each line is preceded by a line number. 
A line is terminated by typing the RETURN key. 

c. Commands cause BASIC to perform some operation or 

task immediately and are not preceded by a line number. 
Commands are always terminated with the RETURN key. 

d. User programs consist of a series of statements 
wrxtten by a person using the system in the BASIC-Plus 
language . 

e. The RSTS-11 terminal is in most cases an ASR-33 
Teletype' . However, RSTS-11 can accommodate virtually 
any typewriter type device. The RSTS-11 user terminal 
is alternatively referred to as terminal, teleprinter, 
or keyboard, depending upon what part or whether the 
whole device is indicated. 



^Teletype is a registered trademark of the Teletype Corporation. 
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1,4 ON-LINE WITH RSTS-11 

In order to use the RSTS-11 system, the user should sit down at 
a terminal and turn the LINE -OFF-LOCAL knob to LINE. The user should 
then type 

HELLO 

followed by the RETURN key. The system responds by skipping a line at 
the terminal and printing a # character. The user should follow this 
with his project-programmer numbers (assigned by the system manager) . 
The two numbers are separated by a comma and entered to the system 
with the RETURN key. The system then prints: 

PASSWORD: 

and waits for the user to type the password code assigned to him by 
the system manager. This code does not echo as it is typed by the 
user in order to maintain the security of controlled system usage. 
If the entry codes typed are acceptable to the system, the message: 

WELCOME TO RSTS-11 
NEW OR OLD — 

is printed. In reply, the user can indicate the creation of a NEW 
program or recalling of an OLD one. Other system commands are ex- 
plained in PART III. 

The entire process of preparing to enter a new program onto 
the system might look as follows. Notice that 1,2 is the project- 
programmer number, the password is not echoed at the terminal, a NEW 
program is to be created, and its name is MATRIX. The system prints 
READY to indicate that it is able to accept BASIC input. 

HELLO 

#1,2 
PASSWORD: 



WELCOME TO RSTS-11 

NEW OR OLD — NEW 

NEW FILE NAME — MATRIX 



READY 
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Once a program has been typed and minor typing errors corrected, 
the program can be made to execute by typing RUN or RUNNH. The RUNNH 
form omits printing the name of the program and the current date before 
the program output. The choice belongs to the user whether he wishes 
this data or not. By typing LIST or LISTNH (NH stands for "no head- 
ing"), the user can obtain a clean listing of the program. These two 
commands (RUN and LIST) are used frequently throughout this manual. 
See Figure 2-1 for an example. 

1.5 SPECIAL TERMINAL KEYS 

Throughout this manual, reference is made to typing various 
special keys on the RSTS-11 terminal. In many cases, these keys are 
not mentioned, but assumed. The user will quickly learn the use of 
the more important control keys on the terminal. As an introduction, 
the user is directed to consider the keys explained below. All 
special keys are described in Chapter 11. 

The RETURN key causes two operations to be performed: 

a. An automatic carriage return/line feed operation is 
executed. The printing head returns to the beginning 
of the line (carriage return) and the paper is ad- 
vanced one line (line feed) . 

b. The data preceding the typing of the RETURN key is 
entered into the system for evaluation. All com- 
mands to BASIC and lines in a user program are 
terminated by typing the RETURN key. 

The RUBOUT key is used to correct typing mistakes. Typing this 
key once causes the last character typed to be deleted from the 
terminal input buffer (remember that an entire line is entered at once 
when the RETURN key is typed) . Pressing the RUBOUT key N times 
causes the last N characters typed to be deleted. 

The ESCAPE key (ESC or ALT MODE on different terminals) performs 
the same function as the (b) description of the RETURN key. The 
ESCAPE key prints a $ character, terminates the current input line, 
and does not cause a carriage return/line feed operation. 

The CTRL key (or control key) is used in combination with certain 
letter keys to cause BASIC to perform special operations . These com- 
binations are performed by the user holding down the CTRL key while 
typing the desired letter key, then releasing both keys. CTRL/U and 
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CTRL/C are examples of these combinations and how they are shown in the 
test. Some of the CTRL/key combinations are introduced below for use 
when working through this manual. All usable combinations are de- 
scribed in Chapter 11. 

a. CTRL/U is used to delete an entire line up to the last 
poxnt at which the RETURN or ESCAPE key was last typed. 
BASIC responds with a carriage return/line feed so 
that the user can continue typing on a fresh line. 

b. CTRL/C is used to interrupt the execution of a program 
and return to the interactive BASIC processor. When 
typed by the user, CTRL/C causes the system to echo 

+ C and when BASIC is eible to accept commands, the 
system prints READY. (READY is printed instantaneously 
after typing CTRL/C.) 

The LINE FEED key serves as a "local" RETURN key, allowing a 
user to type a logical BASIC program line longer than the 72 characters 
which can be typed on one line on the teleprinter. Anything typed on 
the line subsequent to the typing of the LINE FEED key is treated as 
if it were part of the preceding line. »*he~«*Ate«v«at-.to-±>«-.lMJoke»-^ 
-.jrfyLo " t wo ui Bto r 'O li nea— egtrr-bc-e-f— €my-~l!eft^^fetK For example : 

lj2f REM THIS IS A PROGRAM WHICH 

COMPUTES AND PRINTS THE STATISTICAL 
RESULTS OF A CENSUS SURVEY 

The message within the REM statement is 84 characters long, but is 
spaced over three lines to make it more conspicuous. The 91 charac- 
ters in the whole REM statement would not fit on a single teleprinter 
line. Notice that the LINE FEED key does not cause a character to be 
printed. 
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CHAPTER 2 



FUNDAMENTALS OF PROGRAMMING IN BASIC-PLUS 



2.1 EXAMPLE BASIC PROGRAM 

The program in Figure 2.1 is an example of a user program 
written in the BASIC-Plus language. It illustrates the syntax and 
elements of the language as well as standard formatting of statements 
and the appearance of terminal output. 

The user program (the lines numbered 10 through 200) may at this 
time mean little, although the remark in the first line (line 10) and 
the printed results (following the word RUN) clearly show that the 
program computes interest payments . 

A user program is composed of lines of statements containing 
instructions to BASIC. Each line of the program begins with a line 
number that serves to identify that line as a statement and to in- 
dicate the order in which statements are to be evaluated for execution. 
Each statement starts with an English word specifying the type of 
operation to be performed. 

2.2 LINE NUMBERS 

Each line of a user program is preceded by a line number. Line 
numbers : 

a. indicate the order in which statements are normally 
evaluated; 

b. enable the normal order of evaluation to be changed; 
that is, the execution of the program can branch or 
loop through designated statements (this is explained 
further in the sections on the GOTO, GOSUB, and 
IF-THEN statements in Chapter 3) ; and 

c. enhance program debugging by permitting modification 
of any specified line without affecting any other 
portion of the program (see section 11.4). 

Line numbers are in the range 1 to 3276 7. It is good programming 
practice to number lines in increments of 5 or 10 when first writing 
a program, to allow for insertion of forgotten or additional lines 
when debugging the program. 
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LISTNH 
1^ REMARK - THIS PROGRAM COMPUTES INTEREST PAYMENTS 
20 INPUT "INTEREST IN PERCENT", -J 
3J2r LET J=J/1^0 
4^ INPUT "AMOUNT OF 
50 INPUT "NUMBER OF 
60 INPUT "NUMBER OF 
70 LET N=N*M: I=J/M 
80 LET R=A*I/(1-1/B 
PRINT 
PRINT " AMOUNT PER PAYMENT = 



LOAN"; A 
YEARS"; N 
PAYMENTS PER 

: B=l+I 

IN) 



YEAR"; M 



90 

100 

11J2( 

12/2( 

13jaf 

140 

15jaf 



PRINT "TOTAL INTEREST 

PRINT 

LET B=A 

PRINT "INTEREST 

LET L=B*I: P=R-L; 



INT(R*lJ?t2+.5)/l(J+2 

INT ( {R*N-A) *lJ2f t2+. 5) /1J?'^2 



BALANCE OF PRIN" 



APP TO PRIN 
15)i> LJST 1j=£("1 : F=K-ij: B=B-P 
16J? PRINT INT(L*10 + 2+.5)/l!2f+2, INT (P*10 + 2+ . 5) /IJ? +2 , 

INT(B*10+2+.5)/lJ2(+2 
170 IF B>=R GOTO 15J? 

180 PRINT INTC(B*I) *10+2+.5)/ljaif2, INT ( tR-B*I) *10+2+ . 5) /10'I2 
190 PRINT "LAST PAYMENT ="; INT ( {B*I+B) *10-f2+ . 5) /10+2 
2l60 END 



READY 

RUNNH 

INTEREST IN PERCENT? 7.5 

AMOUNT OF LOAN? 2500 

NUMBER OF YEARS? 2 

NUMBER OF PAYMENTS PER YEAR? 4 

AMOUNT PER PAYMENT =339.44 
TOTAL INTEREST =215.51 



INTEREST 

46.88 

41.39 

35.8 

30.11 



24. 
18. 



31 
4 



12.38 
6.25 

LAST PAYMENT =339.44 



APP TO PRIN 
292.56 
298.05 
303.64 
309.33 
315.13 
321.04 
327.06 
333.19 



BALANCE OF PRIN 
2207.44 
1909.39 
1605.75 
1296.42 
981.29 
660.25 
333.19 



READY 



Figure 2-1 
EXAMPLE BASIC PROGRAM 
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when the program is executed (with the use of the RUN command) , 
BASIC evaluates the statements in the order of their line numbers, 
starting with the smallest line number and going to the largest 
(regardless of the order in which they were typed or entered) . 

2 . 3 STATEMENTS 

Each line number is followed by an English word. The word 
identifies the type of statement and informs BASIC what to do or how 
to treat the data (if any) which follows the word. 

2.3.1 Multiple Statements on a Single Line 

More than one statement can be written on a single line as long 
as each statement (except the last) is terminated with a colon. Thus 
only the first statement on a line can (and must) have a line number, 
for example : 

10 INPUT A,B,C 

is a single statement line, while 

2^ LET X=l: PRINT X,Y,Z: IF X=2 GOTO lJ2f 

is a multiple statement line containing three statements: a LET, a 
PRINT, and an IF-GOTO statement. 

Any statement can be used anywhere in a multiple statement line 
except as noted in the discussion of the individual statements. 

2.3.2 A Single Statement on Multiple Lines 

A single statement can be continued on the next line of the 
program. To indicate that a statement is to be continued, the line is 
terminated with the LINE FEED key instead of the RETURN key. The 
LINE FEED performs a carriage return/line feed operation on the 
terminal and the line to be continued does not contain a line number. 
For example : 

lJ2f LET W7=(W-X4*3)*(Z-A/ 
(A-B)-17) 

where the first line was terminated with the LINE FEED key is 
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equivalent to: 

1S3 LET W7=(W-X4*3)*(Z-A/(A-B)-17) 

Note that the LINE FEED key does not cause a printed character to 
appear on the page. 

The length of a multiple line statement is limited to 255 charac- 
ters. 

2.4 CHARACTER SET 

User program statements are composed of individual characters. 
Allowable characters come from the following character set: 

A through Z 
through 9 

and the following special symbols and keys. 



Key Function 

$ Used in specifying string variables (section 5.1). 

% Used in specifying integer variables (section 6.1) 

' " Used to delimit string constants, i.e., text 
strings (section 5.1) . 

; Begins comment part of a line (section 3.1). 

'■ Separates multiple statements on one line 

(section 2.3.1) . 

# Denotes a device or filename, or is used as an 

output format effector (Chapter 7 and section 9.9) 

/ Output format effector and list terminator 
(section 3.11) . 

; Output format effector^ (section 3.11). 

LINE When used at the end of a line, indicates that 
FEED the current statement is continued on the next 
line (section 2.3.2). 

Used to group arguments in an arithmetic 
expression (section 2.5) . 

+ - = Arithmetic operators (section 2.5.3). 
* / + 
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spaces can be used freely throughout the program to make state- 
ments easier to read. For example: 

IJ? LET B = D+2+1 

instead of: 

lj2lLETB=D+2+l 

Both of the above statements mean the same thing to BASIC and are 
stored exactly the same within the computer when the program is 
executed . 

2.5 EXPRESSIONS 

An expression is a group of symbols which can be evaluated by 
BASIC. Expressions are composed of numbers, variables, functions, or 
a combination of the preceding, separated by arithmetic or relational 
operators. Expressions are created by the programmer and inserted 
into the standard BASIC statements in order to perform the various 
operations which comprise the user program. 

The following are examples of expressions acceptable to 
BASIC-Plus. 

4 

A7*(Bf2+l) 

X<Y 

{{A>B) OR (C=D)) AND A/BOC/D 

Not all kinds of expressions can be used in all statements, as is 
explained in the sections describing the individual statements. In 
the following sections the reader is introduced to the elements which 
compose BASIC expressions. 

2.5.1 Numbers 

Numbers, called numeric constants because they retain a constant 
value throughout a program, can be positive or negative and can con- 
tain up to eight digits. Numeric constants are written using decimal 
notation, as follows: 

2 

-3.675 
1234.5678 
-1234567.8 
-.00000078 
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The following are not acceptable nvmibers in BASIC: 



14 

n 



However, BASIC can find the decimal expansion of those two mathematical 
formulas as shown below: 

14 

— IS expressed as 14/3 

3 

/~T is expressed as SQRC7) 

These formats are explained further in later sections. 

The letter E allows further flexibility in number representation 
If numbers were limited to eight digits, a computer would not be able 
to solve many problems involving large numbers. Consequently, rather 
than saying that BASIC can only accept numbers with a maximum of 
eight digits, we say that BASIC has eight digits of precision. Larger 
numbers can be written using the letter E to indicate "times ten to 
the power , " thus : 

.;?i3(jafl2345678 can be written in BASIC as 123.45678E-6 
(^ .--''''~~~t'1234567890. can be written in BASIC as 12345679E 2 
^•^ -123456789jaf;2f. can be written in BASIC as -1.2345679E Ij? 

This E format representation of numbers is very flexible in that the 
number .001 can be written as lE-3, .OlE-1, lOOE-5, or any number of 
ways. If more than eight digits are generated during any computation, 
the result of that computation is automatically printed in E format. 
(If the exponent is negative, a minus sign is printed after the E; 
if the exponent is positive, a space is printed: lE-)af4; IE ^4.) 

The combination E7, however, is not a constant, but a variable. 
The term 1E7 is used to indicate that 1 is multiplied by 10^. 

Numbers are specified according to the following rules: 

a. line numbers are unsigned decimal integers in the 
range 1 to 32767. 
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b. integers are signed decimal numbers in the range 
-32767 to +32767. (When using numbers on a computer, 
a comma is never used to separate the thousands 
place from the hundreds place or anywhere else 
within a number.) 

c. floating point numbers have the absolute range 
lE-9800<n<lE9800. 

2.5.2 Variables 

A variable is a data item whose value can be changed by the 
programmer. A numeric variable is denoted by a single letter or by a 
letter followed by a single digit. Thus BASIC interprets E8 as a 
variable, along with A, X, N5, LJ?, and 01. (Subscripted , Integer, 
and character string variables are described in later sections . ) 

Variables are assigned values by LET, INPUT, and READ statements. 
The value assigned to a variable does not change until the next time 
a LET, INPUT, or READ Statement is encountered that contains a new 
value for that variable or when the variable is incremented by a FOR 
statement. (These conditions are explained further in later sections.) 
All variables are set equal to zero ()?) before program execution. 
Consequently it is only necessary to assign a value to a variable when 
an initial value other than zero is required. 

2.5.3 Mathematical Operators 

BASIC automatically performs the mathematical operations of 
addition, subtraction, multiplication, division, and exponentiation. 
Formulas to be evaluated are represented in a format similar to 
standard mathematical notation. There are five arithmetic operators 
used to write such formulas; they are as follows: 

Symbol Example Meaning 

+ A+B Add B to A 

A-B Subtract B from A 

* A*B Multiply A by B 

/ A/B Divide A by B 

+ A+B Calculate A to the B power, A 

When more than one operation is to be performed in a single formula, as 
is most often the case, rules are observed as to the precedence of 
the above operators. The arithmetic operations are performed in the 
following sequence, with (a) having the highest precedence: 
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'Jm>^ plsjS d^ t *"M>^? ^:« e-'i' ^f/o^d. 



a. Any formula inside parentheses is evaluated before the 
parenthesized quantity is used in further computations. 
Where parentheses are nested, as follows: 

(A+(B*(Di2))) 

the innermost parenthetical quantity is calculated first. 

b. In the absence of parentheses in a formula, BASIC 
performs operations as follows: 

X. exponentiation 

3. multiplication and division 

4. addition and subtraction 

c. In the absence of parentheses in a formula involving 
more than one operation on the same level in (b) 
above^ the operations are performed left to right, in 
the order that the formula is written. For example: 

A+B+C is evaluated as (A+B) +C 

A*B/C is evaluated as (A*B)/C 

The formula (or expression) A.+B*C+D is evaluated as follows: 

first, C is raised to the D power 

second, the result of the first operation is multiplied by B 

third, the result of the previous operation is added to A. 

Parentheses are used to indicate any other order of evaluation. For 
example, if it is the product of B and C that is to be raised to the 
D power, the expression would look as follows: 

A+CB*C)iD 

If it is desired to multiply the quantity A+B by C to the D power: 

(A+B) *C-f D 

The user is encouraged to use parentheses even where they are not 
strictly required in order to make the formulas easier for his own 
reading. Ambiguities exist only in the programmer's mind, the com- 
puter always performs the operations as explained above. 

2.5.4 Relational Symbols 

Relational symbols are used in IF-THEN statements (see section 
3.5) where it is necessary to compare values. The relational symbols 
are as follows: 
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Mathematical 


BASIC 




Symbol 


Symbol 


Example 


= 


A=B 


< 


< 


A<B 


< 


<= 


A<=B 


> 


> 


A>B 


> 


>= 


A>=B 


i- 


<> 


AOB 



Meaning 

A is equal to B 

A is less than B 

A is less than or equal to B 

A is greater than B 

A is greater than or equal to B 

A is not equal to B 

^ == A==B A is approximately equal to B. 

(That is, when printed, the two 
quantities are equal in value. 
Within the computer floating 
point numbers can differ by a 
miniscule amount in the last 
decimal place but still be con- 
sidered equal for all practical 
purposes . ) 

2.5.5 Logical Operators 

Logical operators are used in IF-THEN statements (see section 3.5) 
where some condition is used to determine subsequent operations within 
the user program. The logical operators are as follows: 

Operator Example Meaning 

NOT NOT A The logical negative of A. If A is true, 

NOT A is false. 

AND A AND B The logical product of A and B. If both 

A and B have logical values, A AND B is 
true if and only if both values are true 
and false if either or both are false. 

OR A OR B The logical sum of A and B. If A and B 

have logical values, then A OR B is true 
if and only if at least one is true, and 
false if both are false. 

XOR A XOR B The logical exclusive OR of A and B. If 

both A and B have logical values, A XOR B 
is true if and only if the values differ, 
and false if both values are equal. 

IMP A IMP B The logical implication of A and B. If A 

and B have logical values, then A IMP B 
is false if and only if A is false and B is 
true; otherwise the value is true. 

EQV A EQV B A is logically equivalent to B. If both 

A and B have logical values, A EQV B is 
true if the two values di**eif and false if 
they are~"the- -sarae . (ivf t-j c.,, r 
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The following tables are called truth tables and describe graphically 
the results of the above logical operations with both A and B given 
for every possible combination of values. In logical operations, the 
only possible values a term can have are true and false (T and F) . 



B 
T F 



T 


F 


F 


F 



AND 
B 



T F 
F T 



A 



B 
T F 



EQV 



IMP 



B 

T F 



T 


T 


T 
A 
F 


F 


T 


T 


F 


T 


F 


OR 

B 
T F 


XOR 

A 

T F 


T 


T 


F 


T 


F 


T 


NOT 
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CHAPTER 3 



ELEMENTARY BASIC STATEMENTS 



This chapter describes the simplest forms of the more elementary 
BASIC statements. These statements are sufficient, by themselves, for 
the solution of most problems. Once these statements are mastered, the 
user can investigate the more advanced applications of these statements 
and the additional statements (such as automatic matrix manipulation) 
explained in Part II. 

The reader should understand that any problem which can be solved 
with the more advanced techniques can also be solved with the simpler 
statements, although the solution may not be as efficient. BASIC is 
a language in which lack of experience does not penalize the beginning 
user. As long as the user understands the details of his problem he 
will be able to represent it in BASIC on a number of levels ranging 
from the simple to the sophisticated. 

3.1 REMARKS AND COMMENTS 

It is often desirable to insert notes and messages within a user 
program. Such data as the name and purpose of the program, how to use 
it, how certain parts of the program work, and expected results at 
various points are useful things to have present in the program for 
ready reference by anyone using that program. 

There are two ways of inserting comments into a user program: 

a. the REMARK statement/ and 

b. use of the exclamation mark (I). 

The REMARK statement must be preceded by a line number. The word 
REMARK can be abbreviated to REM for typing convenience, and the message 
itself can contain any printing character on the keyboard. BASIC com- 
pletely ignores anything on a line following the letters REM. (The 
line niomber of a REM statement can be used in a GOTO or GOSUB statement, 
see sections 3.4 and 3.8.1, as the destination of a jump in the program 
execution.) Typical REM statements are shown below: 

1^ REM- THIS PROGRAM COMPUTES THE 

11 REM- ROOTS OF A QUADRATIC EQUATION 
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The exclamation mark is used to terminate the statement part of 
a line and begin the comment part of the line. For example: 

125 LET A=2+4*SQR{C) J A SET EQUAL TO INITIAL VALUE 
13i2( PRINT A/2+1 I PRINT SECOND CALCULATED VALUE 

BASIC ignores everything on the line after encountering the exclama- 
tion mark. 

Messages in REMARK statements are generally called remarks, those 
after the exclamation mark, comments. Remarks and comments are printed 
when the user program is listed but do not affect program execution. 

The lines below indicate three ways of putting the same remark 
on two lines. Lines 1^ and 11 are REM statements. Line 20 is one 
REM statement broken into two lines with the LINE FEED key. Line 30 
is one comment (begun with a I) and broken into two lines with the 
LINE FEED key. 

10 REM THIS PROGRAM COMPUTES THE 

11 REM ROOTS OF A QUADRATIC EQUATION 
20 REM THIS PROGRAM COMPUTES THE 

ROOTS OF A QUADRATIC EQUATION 
30 I THIS PROGRAM COMPUTES THE 

ROOTS OF A QUADRATIC EQUATION 

3.2 LET STATEMENT 

The LET statement assigns a numeric value to a variable. Each 
LET statement is of the form: 

line number LE1!<va7'iable>=<express'ion> 

This statement does not indicate algebraic equality, but performs the 
calculations within the expression (if any) and assigns the numeric 
value to the indicated variable. For example: 

10 LET X=X+1 

20 LET W2=(A4-X+3)*(Z-A/B) ) 

In line 10 the old value of X is increased by one and becomes the new 
value of X. In the second example, the formula on the right hand side 
is evaluated and the numeric value assigned to W2 . 
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The LET statement can be a simple numerical assignment, such as 

5(? LET A5=35 

or require the evaluation of a formula so long that it is continued on 
the next line (see section 2.3.2). 

BASIC-Plus also allows the user to completely omit the word LET 
from what would ordinarily be called the LET statement. The user may 
find it easier to type: 

1J2 X=12*(S+7) 
than 

Ifl LET X=12*(S+7) 

This is a convenience and does not alter the effect of the statement. 

The LET statement can be used anywhere in a multiple statement 
line, such as the following: 

Ifl X=44: Y=X+2+Yl: B2+3.5*A 

Expressions in a LET statement can include both integer and 
floating point variables (section 2.5.2 and 6.1). (Constants are al- 
ways considered floating point values.). Calculations involving data 
of one type yield results of the same type. If, however, one operand 
is an integer variable and one is a floating point variable, the re- 
sult is a floating point value. The value resulting from the evalua- 
tion of any expression is stored according to the data type to the 
left of the equal sign. For example: 

10 LET A=6.2 
20 LET B%=A 
30 PRINT A,B% 

when executed, would result in the following being printed: 

6.2 6 

The LET statement also allows the user to assign a value to 
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multiple variables in the same statement. For example: 

IJ? LET X,Y,Z = 5.7 
causes each of the three variables to be set equal to 5.7. 

3.3 PROGRAMMED INPUT AND OUTPUT 

This section gives the beginning user a preview of the techniques 
used in performing BASIC program I/O (an abbreviation for the term 
input/output) . The most elementary forms of the PRINT, INPUT, READ, 
and DATA statements are described here so that the user is able to 
conceptualize the creation of BASIC programs. 

Using the LET statement, already described, and the following 
executable statements, the user can easily write a viable BASIC program 
of the simplest sort. If he should want to try his program, these 
simple I/O statements will provide a means of doing so and obtaining 
tangible output. 

These statements are described in detail at the end of this chap- 
ter and additional, more advanced, I/O techniques are described in 
later chapters. 

The PRINT statement is used to output program results. The 
PRINT statement has the basic form: 

line number PRINT {list^. 

where the optional list can consist of messages to be printed or 
numeric values, or both. Without the list, the PRINT statement 

IJ? PRINT 

causes a carriage return/line feed to be performed at the teleprinter. 
In order to print numeric values, the word PRINT is followed by the 
variable or expression whose nximeric value is to be printed. The PRINT 
statement, like the LET statement, can perform numeric calculations. 
For example : 

10 LET A=2: LET B=4 
2J? PRINT (A+B) *2 
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causes the number 12 to be printed when line 20 is executed. 

A message can be easily output on the teleprinter by enclosing 
the text to be printed in quotation marks, as follows: 

1^ PRINT "STUDENT NUMBER = ";X 

causes the following to be printed (where X=7744) : 

STUDENT NUMBER = 7744 

The READ and DATA statements are used to input data to a program 
during execution. A DATA statement contains values which are assigned 
to the variables within a READ statement. When the execution of the 
program encounters a READ statement of the form: 

line number READ <list> 

the BASIC processor assigns to the first variable in the list the first 
available value encountered in the pool of DATA statements within the 
program. The second variable is assigned the second value in the DATA 
pool, and so on. Variable names are separated by commas. 

A DATA statement looks as follows: 

line number DATA <list> 

DATA Statements are usually grouped together toward the end of a 
program. All of the DATA statements in a given program are considered 
to be one data pool from which subsequent READ statements obtain values. 
(The values in the list are separated by commas.) The DATA state- 
ments are referenced in the order of their line numbers. For example: 

1)2 READ A,B,C 

20 READ D,E,F 

3pf READ A,B,C 

4(af DATA 1,2,3,4 

5P DATA 5,6,7,8,9 

results in the following assignments being made: 



when line 10 is executed 
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D=4"2 

E=5 f when line 20 is executed 

A=7-) 

B=8 r when line 3 J? is executed 

C=9J 

The INPUT statement allows the user to enter data to the program 
from the terminal keyboard while the program is being executed. The 
data is typed by the user as BASIC asks for it. For example: 

lJ2f INPUT A,B,C 

causes BASIC to pause during execution, print a question mark, and wait 
for the user to type three numerical values. The numbers must be 
separated by commas and terminated with the RETURN key. BASIC keeps 
printing question marks until it obtains the desired number of numeric 
inputs from the keyboard. For example, line IJ? above would cause: 



to be printed. The user could type: 

?15,24 
followed by the RETURN key. BASIC would reply: 



?15,24 



and wait for the user to enter a third value. Any values entered 
beyond the number required (three in the above case) would be ignored. 
INPUT statements are used only when small amounts of data are to be 
entered, or when data can only be supplied while the program is run- 
ning. 

3.4 UNCONDITIONAL BRANCH, GOTO STATEMENT 

The GOTO statement is used when it is desired to ^conditionally 
transfer to some line other than the next sequential line in the 
program. In other words, a GOTO statement causes an immediate jump to 
a specified line, out of the normal consecutive line number order of 
execution. The general format of the statement is as follows: 
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line number GOTO <line number> 

The line number to which the program jumps can be either greater than 
or less than the current line number. It is possible to jump both 
forward and backward within a program. 

Consider the following simple example: 



10 LET A=2 

20 GOTO 50 

30 LET A=SQRCA+14) 

50 PRINT A,A*A 



When executed, the above lines will cause the following to be printed: 



When the program encounters line 20, control transfers to line 50; 
line 50 is executed, control then continues to the line following line 
50. Line 30 is never executed. Any number of lines can be skipped in 
either direction. 

When written as part of a multiple statement line, GOTO must be 
the last statement on the line. For example: 

110 LET A=ATN(B2) :PRINT A:GOTO 50 

Any statement following the GOTO on the same line would never be 
executed. 

3.5 CONDITIONAL BRANCH, IF-THEN AND IF-GOTO STATEMENTS 

The IF-THEN and IF-GOTO statements are used to transfer condition- 
ally from the normal consecutive order of statement numbers, depending 
upon the truth of some mathematical relation or relations. The basic 
format oj. the IF statement is as follows: 



line number IF <aondition> 



TilE^<statement> 
THEN<Hne number> 
GO'TO<line number>_ 



The specified condition is tested. If the relationship is found false, 
then control is transferred to the statement following the IF state- 
ment. If the condition is true, the statement following the THEN is 
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is executed or control is transferred to the line number given after 
THEN or GOTO. (See also the IF-THEN-ELSE statement, section 5.5.) 

The condition described above can be either a simple relational 
expression in which two mathematical expressions are separated by a 
relational operator, or the condition can be a logical expression in 
which two relational expressions are separated by a logical operator. 
For example: 

A+2>B is a relational expression 

A>B AND B<=SQR(C) is a logical expression 

Either type of condition, when evaluated, is either true or false; no 
numeric value is associated with the results of an IF statement. The 
relational and logical operators are described in sections 2.5.5 and 
2.5.6 and are presented in Tables 3-1 and 3-2 for reference. 

75 IF A*B>=B*(B+1) THEN LET D4=D4+1 

In the above line the quantities A*B and B*(B+1) are compared. If the 
first value is greater than or equal to the second value, the variable 
D4 is incremented by 1. If B*(B+1) is greater than A*B, D4 is not 
incremented and control passes to the next line following line 75. 



TABLE 3-1 
RELATIONAL OPERATORS 

Mathematical BASIC BASIC 

Symbol Symbol Example Meaning 

A equals B 
< < A < B A is less than B 



■< 



= 


A = B 


< 


A < B 


<= 


A<=B 


> 


A > B 


> = 


A>=B 


<> 


A<> B 


== 


A==B 



A is less than or equal 
to B 

A is greater than B 

A is greater than or 
equal to B 

A is not equal to B 

A is approximately 
equal to B 
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TABLE 3-2 
LOGICAL OPERATORS 



Logical 


BASIC 


Operator 


Example 


NOT 


NOT A 


AND 


A AND B 


OR 


A OR B 


XOR 


A XOR B 


IMP 


A IMP B 


EQV 


A EQV B 



Meaning 

the logical negation of A 

the logical product of A and B 

the logical sum of A and B 

the logical exclusive OR of A and B 

the logical implication of A and B 

A is logically equivalent to B 



Truth Tables 
of Logical Operators 



B 
T F 



T F 
F F 



AND 



B 

T F 



T 


T 


T 


F 



OR 



B 
T F 



T T 
F T 



IMP 



B 
T F 



T 


F 


F 


T 



EQV 



B 
T F 



F T 
T F 



XOR 



A 



T F 

F T 



NOT 



When a line number follows the word THEN, the IF-THEN statement 
is the same as the IF-GOTO statement. The word THEN can be followed 
by any BASIC statement, including another IF statement. For example; 

25 IF A>B THEN IF B>C THEN PRINT "A>B>C" 
25 IF A>B AND B>C THEN PRINT " A>B>C" 
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The preceding two lines are logically equivalent and perform the 
following operation: 

if B is both less than A and greater than C, the message 

A>B>C 
is printed, otherwise the line following line 25 is executed. 

In the following example, the IF-GOTO statement in line 20 is 
used to limit the range of the variable A in line 10. Execution of the 
loop continues until the relationship A> 4 is true, then immediately 
branches to line 55 to end the program. (A program loop is a series 
of statements which are written so that when the statements have been 
executed control transfers to the beginning of the statements. This 
process continues to occur until some terminal condition is reached.) 

ipr LET A=A+1: X=A+2 

2fS IF A>4 GOTO 55 

25 PRINT X 

3^ PRINT "VALUE OF A IS" A 

40 GOTO 1(2 

55 END 

when the above loop is executed, the following is printed: 

1 

VALUE OF A IS 1 

4 

VALUE OF A IS 2 

9 

VALUE OF A IS 3 

16 

VALUE OF A IS 4 

(The reader is advised to execute these short example programs by 
hand to follow the operation of the computer.) 

In IF statements, the following priorities are associated with 
each operator, in order to provide unambiguous evaluation of the 
conditions specified: 

a. expressions in parentheses are evaluated first 

b. intrinsic mathematical functions 

d. exponentiation (t) 

•A' UUdiy miiiua ( ) , that i s , — u ue i jnbive number o r 
j^ai ' luLle buuU a^ 3/ A, 
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multiplication and division (* and /) 

addition and subtraction {+ and -) 

relational operators (=, <, <=, >, >=, 

NOT 

AND 

OR and XOR 

IMP 

EQV 



==, <>) 



Within the operators indicated in any one group above, operations 
proceed from left to right. 

Examples of IF-THEN statements follow: 

10 IF A>B THEN 100 I SIMPLE COMPARISON 

20 IF A=B OR B=C THEN 200 

30 IF A>B THEN A=-B IAN ASSIGNMENT BY A LET STATEMENT 

A0 IF X>Y IMP Y>Z THEN PRINT "QED" 



The IF S 
except when 
statemep*r mus 
usyi^ GOTO 
(^.-^ecuted. ) 




3.6 PROGRAM CHoPS 



a^ ir, , TUeO 



t/j /tt. Ul'ouj*^ 



We mentioned loops in the section on the IF-THEN and IF-GOTO 
statement. Programs frequently involve performing certain operations 
a specific number of times. This is a task for which a computer is 
particularly well suited. With simple tasks, such as computing a 
list of prime numbers between 1 and 1,000,000, a computer can perform 
the operations and obtain correct results long before the human being 
attempting the same task even becomes bored. To write a loop, the 
programmer must ensure that the series of statements is repeated until 
a terminal condition is met. 

Programs which use loops can be illustrated by using two versions 
of a program to print a table of the positive integers 1 through 100 
together with the square root of each. Without a loop, the first 
program is 101 lines long and reads: 
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10 PRINT 1, SQR(l) 
20 PRINT 2, SQR(2) 
30 PRINT 3, SQR{3) 



99)? PRINT 99, SQR(99) 
1000 PRINT 100, SQR(10J2f) 
Ij3[lj2f END 

With the following program example, using a simple sort of loop, 
the same table is obtained with fewer lines of statements: 

10 LET X=l 

20 PRINT X,SQR(X) 

30 LET X=X+1 

40 IF X<=100 THEN 20 

50 END 

Statement 10 assigns a value of 1 to X, thus setting up the initial 
conditions of the loop. In line 20, both 1 and its square root are 
printed. In line 30, X is incremented by 1. Line 40 asks whether X 
is still less than or equal to 100; if so, BASIC returns to print the 
next value of X and its square root. This process is repeated until 
the loop has been executed 100 times. After the number 100 and its 
square root have been printed, X becomes 101. BASIC now receives a 
negative answer to the question in line 40, does not return to line 20, 
but goes to line 50 which ends the program. 

All program loops have four characteristic parts : 

a. initialization, the conditions which must exist for the 
first execution of the loop are created (line 10 above) 

b. the body of the loop in which the operation which is 
to be repeated is performed (line 20 above) 

c. modification, which alters some value and makes each 
execution of the loop different from the one before 
and the one after (line 30 above) 

d. terminal condition, once this exit test is satisfied 
the loop is considered completed and execution continues 
to the program statements following the loop (line 40 
above) 

3,6.1 FOR and NEXT Statements 

The FOR statement is of the form: 
line number FOR <variable>=<expression> TO <exppession> STEP <expression> 
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For example : 

Ifi FOR K=2 TO 2j2( STEP 2 

which causes program execution to cycle through the designated loop 
using K as 2, 4, 6, 8,..., 20 in calculations involving K. When K=20, 
the loop is left behind and the program control goes to the line fol- 
lowing the associated NEXT statement. 

The variable in the FOR statement must be unsubscripted, although 
a common use of such loops is to deal with subscripted variables using 
the FOR variable as the subscript of a previously defined variable 
(this is explained in further detail in section 3.6.2). The expres- 
sions in the FOR statement can be any acceptable BASIC expression as 
already defined in section 2.5. 

The NEXT statement signals the end of the loop which began with 
the FOR statement. The NEXT statement is of the form: 

line number NEXT <variable> 

where the variable is the same variable specified in the FOR state- 
ment. Together the FOR and NEXT statements describe the boundaries 
of the program loop. When execution encounters the NEXT statement, 
the computer adds the STEP value to the variable and checks to see if 
the variable is still less than the terminal value. When the variable 
exceeds the terminal value control falls through the loop to the 
following statements . 

If the STEP value is omitted from the FOR statement, +1 is the 
assumed value. Since +1 is a common STEP value, that portion of the 
statement is frequently omitted. 

The expressions within the FOR statement are evaluated once upon 
initial entry to the loop. The variable can be modified within the 
loop. When control falls through the loop, the variable value retains 
the last value used within the loop. 

The following is a demonstration of a simple FOR-NEXT loop. The 
loop is executed 10 times, the value of I is 10 when control leaves 
the loop and +1 is the assumed STEP value. 
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IjH FOR I = 1 TO Ij? 
2f3 PRINT I 
30 NEXT I 
40 PRINT I 

The loop itself is lines 10 through 30. The numbers 1 through 10 are 
printed when the loop is executed. After 1=10, control passes to line 
40 which causes 10 to be printed again. If line 10 had been: 

10 FOR I = 10 TO 1 STEP -1 

the value printed by line 40 would be 1. 

10 FOR I = 2 TO 44 STEP 2 
20 LET I = 44 
30 NEXT I 

The above loop will only be executed once since the value of 1=44 has 
been reached and the termination condition is satisfied. 

If, however, the initial value of the variable is greater than 
the terminal value, the loop will not be executed at all. A statement 
of the format: 

10 FOR I = 20 TO 2 STEP 2 

cannot be used to begin a loop, although a statement like the follow- 
ing will initialize execution of a loop properly: 

10 FOR I = 20 TO 2 STEP -2 

For positive STEP values, the loop is executed until the control 

variable is greater than its final value. For negative STEP values, 

the loop continues until the control variable is less than its final 
value . 

FOR loops can be nested but not overlapped. The depth of nesting 
depends upon the amount of user storage space available, in other 
words, upon the size of the user program and the amount of core each 
user has available. Nesting is a programming technique in which one 
or more loops are completely within another loop. The field of one 
loop (the numbered lines from the FOR statement to the corresponding 
NEXT statement, inclusive) must not cross the field of another loop. 
The following diagrams illustrate nesting procedures: 
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ACCEPTABLE NESTING 
TECHNIQUES 



UNACCEPTABLE NESTING 
TECHNIQUES 



Two Level Nestinc^ 



FOR 

[-FOR 
L-NEXT 
pFOR 
"-NEXT 

NEXT 



Three Level Nesting 



p-FOR 
j— I— FOR 

L-NEXT 
I NEXT 



— FOR 

— FOR 
pFOR 
•-NEXT 
pFOR 
l-NEXT 

— NEXT 

— NEXT 



An example of a nested FOR-NEXT loop is shown below: 

5 DIM X(5,10) 

1)2 FOR A=l TO 5 

2(3f FOR B=2 TO Ifi STEP 2 

30 LET X(A,B)= A+B 

4|? NEXT B 

50 NEXT A 

55 PRINT X 

Upon execution of the above statements, BASIC will print 15 when line 
55 is processed. 

It is possible to exit from a FOR-NEXT loop without the counter 
variable reaching the termination value. A conditional or uncondition- 
al transfer can be used to leave a loop. Control can only transfer 
into a loop which had been left earlier without being completed, ensur- 
ing that the termination and STEP values are assigned. 

Both FOR and NEXT statements can appear anywhere in a multiple 
statement line. For example: 
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10 FOR 1=1 TO 10 STEP 5: NEXT I: PRINT "I=";I 



causes: 



1=6 

to be printed when executed. 

Neither FOR nor NEXT statement can be executed conditionally in 
an IF statement. The following statements are incorrect ; 

15 IF loJ THEN NEXT I 

16 IF I=J THEN FOR 1=1 TO J 

However, FOR modifiers can appear in THEN or ELSE clauses of IF state- 
ments. (Modifiers are explained in section 9.8.) For example: 

75 IF 1=1 THEN PRINT I; FOR 1=1 TO 5 ELSE PRINT I; FOR 1=10 TO 20 

which causes 

12 3 4 5 

to be printed where 1=1. The modifier clause applies only to the 
THEN or ELSE. 

3.6.2 Subscripted Variables and the DIM Statement 

In addition to the simple variables which were described in 
Chapter 2, BASIC allows the use of subscripted variables. Subscripted 
variables provide the programmer with additional computing capabilities 
for dealing with lists, tables, matrices, or any set of related 
variables. In BASIC, variables are allowed one or two subscripts. 

The name of a subscripted variable is any acceptable 

BASIC variable name followed by one or two integer expressions in 

parentheses. For example, a list might be described as A (I) where 
I goes from 1 to 5 as shown below: 

A(l) , A(2) , A(3) , A(4) , A(5) 

This allows the programmer to reference each of the five elements in 
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the list, and can be considered a one dimensional algebraic matrix as 
follows: 



A(l) 



A(2) 



A(3) 



A(4) 



A(5) 



A two dimensional matrix B(I,J) can be defined in a similar 
manner : 

B(l,l), B(l,2), ..., B(1,J),..., B(I,J) 

and graphically illustrated as follows: 




/ 


B(1,J) 


/ 


B{2,J) 


^ 


B(3,J) 


\ 






Subscripts used with subscripted variables throughout a program can 
be explicitly stated or be any legal expression. 

It is possible to use the same variable name as both a sub- 
scripted and as an unsubscripted variable. Both A and A(I) are valid 
variables and can be used in the same program. However, BASIC will 
not accept the same variable name as both a singly and a doubly 
subscripted variable name in the same program. 

Use of subscripted variables requires a dimension (DIM) state- 
ment to define the maximum number of elements in a matrix. ("Matrix" 
is the general term used in this manual to describe all the elements 
of a subscripted variable.) The DIM statement is of the form: 
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line number DIM <variable (n)> ,<variahle(n,m)>, . . . 
For example : 

lJ2f DIM X(5) , Y(4,2) , Z (1J2( , lJ2f) 
12 DIM 14(10!?) 

Only integer constants can be used in DIM statements to define 
the size of a matrix. Any number of matrices can be defined in a 
single DIM statement as long as their representations are separated 
by commas . 

If a subscripted variable is used without appearing previously 
in a DIM statement, it is assumed to be of length 10 in each dimen- 
sion. For this reason and for reasons of good programming practice, 
all matrices should be correctly dimensioned before their use in a 
program. DIM statements are usually grouped together among the first 
lines of a program. 

The first element of every matrix is automatically assumed to 

have a subscript of zero. Dimensioning A (6, 10) sets up room for a 

matrix with 7 rows and 11 columns. This matrix can be thought of as 

existing in the following form: 



^0,0 


^0,1 • 


• • ^^0,10 


^1,0 


^1,1 • ' 


' • -^1,10 


^2,0 


^2,1 • 


• • "^2,10 



^6,0 \,1 ^6,10 



as shown in the following program: 
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LISTNH 

l/2f REM - MATRIX CHECK PROGRAM 

20 DIM A(6,lJ3f) 

30 FOR 1=0 TO 6 

40 LET A (1,0) = I 

50 FOR J=0 TO 10 

60 LET A(0,J) = J 

70 PRINT A (I, J) ; 

80 NEXT J: PRINT: NEXT I 

90 END 

READY 

RUNNH 

0123456789 10 

10000000000 

20000000000 

30000000000 

40000000000 

50000000000 

60000000000 

READY 



Notice that a variable has a value of zero until it is assigned a 
value. 

If the user wishes to conserve core space and not make use of 
the extra variables set up within the matrix, he should, for 
example, say DIM A (5, 9) which would result in a 6 x 10 matrix which 
would be referenced beginning with the A(0,0) element. 

The size and number of matrices which can be defined depend 
upon the amount of user storage space available. 

An example of subscripted variables follows. I/O is particular- 
ly easy when using subscripted variables. 
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LISTNH 

5 REM PROGRAM DEMONSTRATING 

READING OF SUBSCRIPTED VARIABLES 
1^ DIM A(5) , B(2,3) 
15 PRINT "A (I) WHERE 1=1 TO 5:" 
20 FOR 1=1 TO 5 
25 READ A (I ): PRINT A(I); 
30 NEXT I 
35 PRINT 
40 PRINT 

45 PRINT "B(I,J) VTOERE 1=1 TO 2" 
50 PRINT " AND J=l TO 3 : " 

55 FOR 1=1 TO 2 
60 PRINT 
65 FOR J=l TO 3 
70 READ B(I,J):PRINT B(I,J); 
75 NEXT J: NEXT I 
80 DATA 1,2,3,4,5,6,7,8 
85 DATA 8,7,6,5,4,3,2,1 
90 END 

READY 

RUNNH 

A(I) WHERE 1=1 TO 5: 

12 3 4 5 

B(I,J) WHERE 1=1 TO 2 
AND J=l TO 3: 

6 7 8 
8 7 6 
READY 

(The MAT READ Statement described in Chapter 8 makes this 
process much easier,) A DIM statement can be placed anywhere in a 
multiple statement line. Integer and string variables can also 
be used in matrices as described in Sections 5.1 and 6.1. 

3.7 MATHEMATICAL FUNCTIONS 

Within the course of a user's programming experience, he 
encounters many cases where relatively common mathematical operations 
are to be performed. The results of these common operations can 
often be found in volumes of mathematical tables; i.e., sine, cosine, 
square root, log, etc. Since it is this sort of operation that 
computers perform with speed and accuracy, such operations are built 
into BASIC. The user need never consult tables to obtain the value 
of the sine of 23° or the natural log of 144. When such values are 
to be used in an expression, the intrinsic functions, such as 

SIN(23*PI/180) 
LOG(144) 
are substituted. 
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The various mathematical functions available in BASIC-Plus are 
detailed in Table 3.3 

Table 3.3 

Mathematical Functions 



ATN 



Function „ ^ . 

Code Meanina 

ABS(X) returns the absolute value of X 

SGN(X) returns the sign function of X, a value 

of 1 preceded by the sign of X, SGN(JI)=JI 
INT (X) returns the greatest integer in X which 

is less than or equal to X 
FIX{X) returns the truncated value of X, 

SGN(X)*INT(ABS(X)) 
COS (X) returns the cosine of X in radians 
SIN(X) returns the sine of X in radians 
TAN(X) returns the tangent of X in radians 
*2ia(r(X) returns the arctangent of X in radians 
SQR(X) returns the square root of X 
EXP(X) returns the value of efX, where e=2.1418 
IiOG(X) returns the natural logarithm of X, log X 
L0GlJ2f(X) returns the common logarithm of X, log-^X 
PI has a constant value of 3.1415927 

RND(X) returns a random number between and 1 

the same sequence of random numbers 

is generated each time a program is 

run requiring the use of the random 

number generator 



Most of these functions are self-explanatory. Those which are 
more complex are explained in the following section. 

3.7.1 Examples of Particular Intrinsic Functions 

Sign Function, SGN(X) 

The sign function returns the value 1 if X is a positive 
value, if X is 0, and -1 if X is negative. For example: 
SGN (3.42) = 1, SGN(-42) = -1, and SGN(23-23) = 0. 
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LISTNH 

1^ REM- SGN FUNCTION EXAMPLE 

2j3f READ A,B 

25 PRINT "A="A,"B="B 

30 PRINT "SGN(A)="SGN(A) ,"SGN(B)="SGN(B) 

4jaf PRINT "SGN(INT(A))="SGN(INT(A) ) 

5)2f DATA -7.32, .44 

60 END 

READY 

RUNNH 

A=-7.32 B= .44 

SGN(A)=-1 SGN(B)=1 

SGN(INT(A))=-1 

READY 

Integer Function, INT(X) 

The integer function returns the value of the greatest integer 
not greater than X. For example, INT(34.67) = 34. INT can be used 
to round nximbers to the nearest integer by asking for INT(X+.5). For 
example, INT (34. 6 7+. 5) = 35. INT can also be used to round to any 
given decimal place, by asking for 

INT (X*l)2(f D+. 5) /10 + D 

where D is the number of decimal places desired, as in the following 

program: 

LISTNH 

IJJ REM- INT FUNCTION EXAMPLE 

2J? PRINT "NUMBER TO BE ROUNDED"; 

30 INPUT A 

40 PRINT "NO. OF DECIMAL PLACES"; 

50 INPUT D 

60 LET B=INT(A*10 + D+.5)/lJ?+D 

70 PRINT "A ROUNDED ="B 

80 GO TO 20 

90 END 

READY 

RUNNH 

NUMBER TO BE ROUNDED? 55.65342 

NO. OF DECIMAL PLACES? 2 

A ROUNDED = 55.65 

NUMBER TO BE ROUNDED? 78.375 

NO. OF DECIMAL PLACES? -2 

A ROUNDED = 100 

NUMBER TO BE ROUNDED? 67.89 

NO. OF DECIMAL PLACES? -1 

A ROUNDED = 70 

NUMBER TO BE ROUNDED? tC 

READY 
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For negative numbers, the largest integer contained in the number 
is a negative number with the same or a larger absolute value. For 
example: lNT(-23)= -23, but INT(-14.39) = -15. 

Random Number Function, RND(X) 

The random number function produces a random number between and 
1. The numbers are reproducible in the same order for later checking 
of a program. The argument X in the RND(X) function call can be any 
number, as that value is ignored and serves no function. 



LISTNH 

10 REM - RANDOM NUMBER EXAMPLE 

25 PRINT "RANDOM NUMBERS" 

30 FOR 1=1 TO 3fS 

40 PRINT RND(jaf) , 

50 NEXT I 

60 END 

READY 

RUNNH 



RANDOM NUMBERS 
.2435041 
.7525509 
.06615233 
.7732576 
.5744461 
.09334031 



.2998482 
.6062854 
.9162304 
.7387181 
.5270493 
.5817788 



.6075527 
.8647548 
.9020116 
.4729902 
.9922808 
.6506097 



.946681 

.7319596 

.1659956 

.1894784 

.2102409 

.6676494 



.2121133 
.6089648 
.8778697 
.8799586 
.3309181 
.150409 3 



READY 



In order to obtain random digits from to 9 , change line 40 to read: 



40 PRINT INT(10*RND(0) ) , 



and tell BASIC to run the program again, 
look as follows: 



This time the results will 



RANDOM NUMBERS 

2 2 

7 6 

9 

7 7 

5 5 

5 



6 
8 
9 
4 
9 
6 



9 

7 
1 
1 
2 
6 



2 
6 
8 
8 
3 
1 



READY 
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It is possible to generate random numbers over any range. For example, 
if the range (A,B) is desired, use: 

(B-A) *RND(i?)+A 

to produce a random number in the range A<n<B. 

3.7.2 RANDOMIZE Statement 

If the random niomber generator is to calculate different random 
numbers every time the program is run, the RANDOMIZE statement is used. 
RANDOMIZE is normally placed at the beginning of a program which uses 
random numbers (the RND function) . When executed, RANDOMIZE causes 
the RND function to choose a random starting value, so that the program 
run twice will give different results. 

For example : 

Ij? RANDOMIZE 
20 PRINT RND(i2l) 
3JS END 

will print a different number each time it is run. For this reason, 
it is a good practice to debug a program completely before inserting 
the RANDOMIZE statement. 

The form of the statement is as follows: 

line number RANDOMIZE 

To demonstrate the effect of the RANDOMIZE statement on two runs of 
the same program, we insert the RANDOMIZE statement as statement 15 
in the following program: 

LISTNH 

15 RANDOMIZE 

2^ FOR 1=1 TO 5 

25 PRINT "VALUE" I " IS" RND(pf) 

3)? NEXT I 

35 END 

READY 

RUNNH 
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VALUE 1 IS 

VALUE 2 IS 

VALUE 3 IS 

VALUE 4 IS 

VALUE 5 IS 



, 7jZfj34438 
.6706673 
. 72j2(J?)2f98 
.2840528 
.2242288 



READY 

RUNNH 

VALUE 1 IS 

VALUE 2 IS 

VALUE 3 IS 

VALUE 4 IS 

VALUE 5 IS 



,59055 

.3409859 

.7309656 

,3169203 

.3228311 



READY 
Clearly, the output from each run is different. 

3.7.3 User Defined Functions 

In some programs it may be necessary to execute the same sequence 
of statements or mathematical formulas in several different places. 
BASIC allows the programmer to define his own functions and call these 
functions in the same way he would call the square root or trig 
functions. 

These user defined functions consist of a function name, the 
first two letters of which are FN followed by any valid variable name. 
(The type of variable name used determines the type of the function.) 
For example : 



FNA 
FNAl 
FNA% 
FNA$ 



floating point function 
floating point function 
integer function 
string function 



We define the function once at the baginn i i ng ^mt Lho pyogiuni bu trrre 
■firoL uggt The defining or DEF statement is formed as follows: 



O 
C 



line number DEF 'S'^a. {arguments) = <ex^ression {arguments) > 

where a is any acceptable (one, two, or three character) variable 
name. The arguments must be the same on each side of the equal sign 
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and may consist of one or more dummy variables . For example : 

Ifi DEF FNA(S) = Sf2 
will cause a later statement: 

2j2f LET R = FNA(4)+1 
to be evaluated as R=17 . 

The two following programs 



Program #1; 



LISTNH 

IJJ DEF FNS(A) = A+A 

2J? FOR 1=1 TO 5 

30 PRINT I, FNS(I) 

40 NEXT I 

50 END 



Program #2; 



LISTNH 

10 DEF FNS(X) = XfX 

20 FOR 1=1 TO 5 

30 PRINT I, FNS(I) 

40 NEXT I 

50 END 



cause the same output: 



RUNNH 

1 1 

2 4 

3 27 

4 256 

5 3125 



The arguments in the DEF statement can be seen to have no sig- 
nificance; they are strictly dummy variables. The function itself 
can be defined in the DEF statement in terms of numbers, variables, 
other functions, or mathematical expressions. For example: 

10 DEF FNA(X) = Xf2+3*X+4 

15 DEF FNB(X) = FNA(X)/2 + FNA(X) 

20 DEF FNC(X) = SQR(X+4) + 1 
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The statement in which the user defined function appears can have 
that function combined with numbers, variables, other functions, or 
mathematical expressions. For example: 

4(3' LET R = FNA(X+Y+Z) 

/> ' The user defined function can be a function of from zero to 
• e.i i ifhL variables, as shown below: 

25 DEF FNL(X,Y,Z) = SQR(X+2 + Y+2 + Z+2) 

A later statement in a program containing the above user defined 
function might look like the following: 

55 LET B = FNL(D,L,R) 

where D, L, and R have some values in the program. 

The number of arguments with which a user defined function is 
called must agree with the number of arguments with which it was 
defined. 

When calling a user defined function, the parenthesized argu- 
ments can be any legal expression. The value of the expression is 
substituted for the function variable. For example: 

Ifi DEF FNZ(X) = Xt2 

20 LET A = 2 

30 PRINT FNZ(2+A) 



line 3J? will cause 16 to be printed, when executed. 

The function can be called recursively, meaning that an argument 
of the function can contain the function itself, as follows: 

10 DEF FNZ(X) = X+2 

20 LET A= 2 

30 PRINT FNZC2+A*FNZ (2) ) 

line 30 will cause 100 to be printed when executed. FNZ(2)=4, which 
is then multiplied by A to give 8, plus 2 equals 10 as the argument. 
FNZtlO) = 100, 
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LISTNH 

1 : MODULUS ARITHMETIC PROGRAM 

5 I FIND X MOD M 

10 DEF FNM(X,M) = X-M*INT (X/M) 

15 : 

20 I FIND A+B MOD M 

25 DEF FNA(A,B,M) = FNM(A+B,M) 

30 l 

35 : FIND A*B MOD M 

40 DEF FNB(A,B,M) = FNM{A*B,M) 

41 : 

45 PRINT 

50 PRINT "ADDITION AND MULTIPLICATION TABLES, MOD M" 

55 INPUT "GIVE ME AN M";M 

60 PRINT: PRINT "ADDITION TABLES MOD "M 

65 GOSUB 800 

10 FOR 1=0 TO M-1 

75 PRINT I;" " ; 

80 FOR J=J2f TO M-1 

85 PRINT FNA(I,J,M); 

9j2f NEXT J: PRINT: NEXT I 

100 PRINT: PRINT 

11(? PRINT "MULTIPLICATION TABLES MOD " M 

12)2f GOSUB 800 

130 FOR I=j2( TO M-1 

140 PRINT I;" "; 

15J2f FOR J=0 TO M-1 

160 PRINT FNB(I,J,M); 

110 NEXT J: PRINT: NEXT I 

180 STOP 

800 : SUBROUTINE FOLLOWS: 

810 PRINT: PRINT TAB(4);j2(; 

820 FOR 1=1 TO M-1 

830 PRINT I;: NEXT I: PRINT 

840 FOR 1=1 TO 2*M+3 

850 PRINT "-";: NEXT I: PRINT 

860 RETURN 

870 END 

READY 
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RUNNH 

ADDITION AND MULTIPLICATION TABLES, MOD M 
GIVE ME AN M? 7 

ADDITION TABLES MOD 7 

J2( 1 2 3 4 5 6 



a 


1? 1 2 3 4 5 6 


1 


12 3 4 5 6 1? 


2 


2 3 4 5 6 J2f 1 


3 


3 4 5 6 ;? 1 2 


4 


4 5 6 )? 1 2 3 


5 


5 6 J? 1 2 3 4 


6 


6 12 3 4 5 



MULTIPLICATION TABLES MOD 7 
(2123456 



m 


fs ^ ji m 


1 


j? 1 2 3 4 5 6 


2 


laf 2 4 5 1 3 5 


3 


)? 3 6 2 5 1 4 


4 


(2415263 


5 


pf 5 3 1 6 4 2 


6 


6 5 4 3 2 1 



STOP AT LINE 18(2f 
READY 



Figure 3-1 Modulus Arithmetic 
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If the same function name is defined more than once, the first 
definition is used and subsequent definitions are treated as errors 
and ignored. 

IJ? DEF FNX(X) = Xf2 

2^ DEF FNX(X) = X+X 

ILLEGAL FN REDEFINITION 

3fi PRINT FNX(6) 

4jaf END 

RUNNH 

36 



The function variable need not appear in the function expression 
as shown below: 

lj5 DEF FNA(X) =4 + 2 

2f! LET R = FNA{1)?)+1 

3J3f PRINT R 

4j2( END 

RUNNH 

7 



The program in Figure 3-1 contains examples of a multi-variable 
DEF statement in lines ID, 2^, and ^^. 

Integer and character string functions can also be created (in 
which case the variable name has two or three characters: 
FNA$(X) ,FNB1% (N) ) . See sections 5.5 and 6.5 for details. 

3 . 8 SUBROUTINES 

When particular mathematical expressions are evaluated several 
times throughout a program, the DEF statement enables the user to 
write that expression only once. The technique of looping allows the 
program to do a sequence of instructions a specified number of times. 
If the program should require that a sequence of instructions be 
executed several times in the course of the program, this, too, is 
possible. A subroutine is a section of code performing some unusually 
lengthy operation required at more than one point in the program. 
Sometimes a complicated I/O operation for a voliome of data, a 
mathematical evaluation which is too complex for a user defined func- 
tion, or any number of other processes may be best performed in a 
subroutine. 
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3.8.1 GOSUB Statement 

Subroutines are usually placed physically at the end of a 
program, before DATA statements, if any, and always before the END 
statement. The program begins execution and continues until it 
encounters a GOSUB statement of the form: 

line number GOSUB <line number> 

where the line number after GOSUB is the first line number of the 
subroutine. Control then transfers to that line in the subroutine. 
For example: 

5)? GOSUB 20)? 

The first line in the subroutine can be a remark or any executable 
statement. 

3.8.2 RETURN Statement 

Having readhed the line containing a GOSUB statement, control 
transfers to the line indicated after GOSUB, the subroutine is 
processed until the computer encounters a RETURN statement of the form: 

line number RETURN 

which causes control to return to the line following the GOSUB state- 
ment. 

Before transferring to the subroutine, BASIC internally records 
the next line number to be processed after the GOSUB statement; the 
RETURN statement is a signal to transfer control to this line. In 
this way, no matter how many subroutines or how many times they are 
called, BASIC always knows where to go next. Figure 3-1 and the 
following program demonstrate simple subroutines: 
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LISTNH 

1 REM - THIS PROGRAM ILLUSTRATES GOSUB AND RETURN 

IfS DBF FNA(X)= ABS(INT(X)) 

2ji INPUT A,B,C 

30 GOSUB IPJ? 

A0 LET A=FNA(A) 

50 LET B=FNA(B) 

60 LET C=FNA(B) 

70 PRINT 

80 GOSUB 100 

90 STOP 

100 REM - THIS SUBROUTINE PRINTS OUT THE SOLUTIONS 

IIJJ REM - OF THE EQUATION: AX+2 + BX + C = j? 

12^ PRINT "THE EQUATION IS " A "*X+2 + " B " *X + " ( 

13/3 LET D= B*B - 4*A*C 

140 IF D<>0 THEN 170 

150 PRINT "ONLY ONE SOLUTION... X =" -B/(2*A) 

16^ RETURN 

171? IF D<0 THEN 200 

180 PRINT "TWO SOLUTIONS ... X ="j 

185 PRINT (-B+SQR(D))/(2*A) "AND X =" (-B-SQR(D) ) / (2*A) 

190 RETURN 

200 PRINT "IMAGINARY SOLUTIONS... X = ( " ; 

205 PRINT -B/(2*A) "," SQR (-D) / (2*A) ") AND ("; 

207 PRINT -B/(2*A) "," -SQR(-D) / {2*A) ")" 

210 RETURN 

900 END 

READY 

RUNNH 



? l,.5,-.5 




THE EQUATION IS 


1 *Xf2 + .5 *X 


TWO SOLUTIONS . . . 


X = .5 AND X = -1 



+ -.5 

THE EQUATION IS 1 *X+2 + *X + 1 

IMAGINARY SOLUTIONS ... X =(0,1) AND (0,-1) 

READY 

Lines 100 through 210 constitute the subroutine. The subroutine 
is executed from line 30 and again from line 80. When control returns 
to line 90 the program encounters the STOP statement and terminates 
execution. Note that even though the program logically ends with a 
STOP, the END statement is still present. 

3.8.3 Nesting Subroutines 

More than one subroutine can be used in a single program, in 
which case they can be placed one after another at the end of the 
program (in line number sequence) . A useful practice is to assign 
distinctive line numbers to subroutines; for example, if the main 
program uses line numbers up to 199, use 200 and 300 as the first 
numbers of two subroutines . 
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Subroutines can also be nested, in terms of one subroutine call- 
ing another subroutine. If the execution of a subroutine encounters 
a RETURN statement, it will return control to the line following the 
GOSUB which called that subroutine; therefore, a subroutine can call 
another subroutine, even i tself. Subroutines can be entered at any 
point and have more than one RETURN statement where certain conditions 
will cause control to reach only one RETURN statement. It is possible 
to transfer to the beginning or any part of a subroutine; multiple 
entry points and RETURNS make a subroutine more versatile. 

The maximum level of GOSUB nesting is dependent on the size of 
the user program and the amount of core storage available at the 
particular installation. Exceeding this limit results in the message: 

MAXIMUM CORE SIZE EXCEEDED AT LINE XXX 

where XXX is the line number of the line containing the error. 

3.9 READ, DATA, AND RESTORE STATEMENTS 

READ and DATA statements are used to enter information into the 

user program during execution. A READ statement is used to assign to 

the listed variables those values which are obtained from a DATA 
statement. Neither statement is used without the other. 

A READ statement is of the form: 

line number READ <li8t> 
A DATA Statement is of the form: 

line number DATA <list> 

A READ Statement causes the variables listed in it to be assigned, 
in order, the next available numbers in the collection of DATA state- 
ments. Before the program is run, BASIC takes all DATA statements in 
the order they appear and creates a data block out of the numbers. 
Each time a READ statement is encountered in the program, the data 
block supplies the next available number or nurt±iers . If the data 
block runs out of data, the program is assumed to be finished and an 
OUT OF DATA message is printed by BASIC. 
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READ and DATA statements appear as follows : 

15J2f READ X,Y,Z,X1,Y2,Q9 

33)3 DATA 4,2,1.7 

340 DATA 6.734E-3, -174.321, 3.1415927 

Note that only numbers are used in this particular DATA statement 
(string data is treated in section 5.3). 

Since data must be read before it can be used in a program, READ 
statements normally occur near the beginning of a program. The loca- 
tion of DATA statements is arbitrary, as long as they occur in the 
correct order. A good practice is to collect all DATA statements near 
the end of the program. A DATA statement must be the only statement 
on a line, while a READ statement can be placed anywhere in a multiple 
statement line. 

If it should become necessary to use the same data more than once 
in a program, the RESTORE statement will make it possible to recycle 
through the DATA statements beginning with the lowest numbered DATA 
statement. The RESTORE statement is of the form: 

line number RESTORE 

For example: 

85 RESTORE 

will cause the next READ statement following line 85 to begin reading 
data from the first DATA statement in the program, regardless of where 
the last data value was found. 

You may use the same variable names the second time through the 
data or not, as you choose, since the values are being read as though 
for the first time. In order to skip unwanted values, dummy variables 
must be read. In the following example, BASIC prints: 



on the last line because it did not skip the value for the original 
N when it executed the loop beginning at line 200. 
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LISTNH 

10 REM PROGRAM TO ILLUSTRATE USE OF RESTORE 

15 READ N: PRINT "VALUES OF X ARE:" 

20 FOR 1=1 TO N: READ X: PRINT X, 

25 NEXT I 

30 RESTORE 

35 PRINT: PRINT "SECOND LIST OF X VALUES" 

40 PRINT "FOLLOWING RESTORE STATEMENT:" 

45 FOR 1=1 TO N: READ X: PRINT X, 

50 NEXT I 

60 DATA 4,1,2 

70 DATA 3,4 

80 END 

READY 

RUNNH 

VALUES OF X ARE: 

12 3 4 

SECOND LIST OF X VALUES 

FOLLOWING RESTORE STATEMENT: 

4 12 3 

READY 



When reading a BASIC program from the terminal tape reader, often 
the last line read is the READY printed by BASIC when the program was 
listed (and punched) . BASIC interprets this as a READ Y command and, 
if there are no DATA statements in the program, gives an "OUT OF DATA 
AT LINE 0" message. 

3.10 INPUT STATEMENT 

The second way to input data to a program is with an INPUT state- 
ment. This statement is used when writing a program to process data 
to be supplied while the program is running. During execution, the 
programmer can type values as the computer asks for them. (Non- 
terminal INPUT is described in Chapter 7.) Depending upon how many 
values are to be accepted by the INPUT command, the programmer may 
wish to write himself a note reminding himself what data is to be 
typed at what time (this can be done with the PRINT or INPUT statement) . 
In the example program following, the questions are asked at execution 
time: INTEREST IN PERCENT?, AMOUNT OF LOAN?, and NUMBER OF YEARS? 
The programmer knows which value is requested and proceeds to type 
and enter the appropriate value. 
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LISTNH 

10 REM PROGRAM TO COMPUTE INTEREST PAYMENTS 

15 INPUT "INTEREST IN PERCENT"; J 

20 LET 3=3/100 

25 INPUT "AMOUNT OF LOAN"; A 

30 INPUT "NUMBER OF YEARS"; N 

35 INPUT "NO. OF PAYMENTS PER YEAR"; M 

A0 N=N*M: I=J/M: B=l+I : R=A*I/ (1-1/B+N) 

45 PRINT: PRINT "AMOUNT PER PAYMENT =";R 

50 PRINT "TOTAL INTEREST =";R*N-A 

55 PRINT: B=A 

60 PRINT "INTEREST APP TO PRIN BALANCE OF PRIN" 

65 L=B*I: P=R-L: B=B-P 

67 PRINT L,P,B 

10 IF B>=R GOTO 65 

75 PRINT B*I,R-B*I 

80 PRINT "LAST PAYMENT WAS "B*I+B 

85 END 

READY 

RUNNH 

INTEREST IN PERCENT? 9 

AMOUNT OF LOAN? 25iaf(2f 

NUMBER OF YEARS? 2 

NO. OF PAYMENTS PER YEAR? 4 

AMOUNT PER PAYMENT =3 44.96154 
TOTAL INTEREST =259.692 34 

INTEREST APP TO PRIN BALANCE OF PRIN 

56.25 288.71154 2211.2885 

49.75399 295.20755 1916.08^9 

43.11182 301.84972 1614.2312 

36.320202 308.64134 1305.5898 

29.375772 315.58577 990.00407 

22.275092 322.68645 667.31763 

15.014647 329.9469 337.37073 

7.5908414 337.3707 
LAST PAYMENT WAS 344.96157 

READY 



The INPUT statement is of the form: 

line number INPUT <l-ist> 
For example : 

10 INPUT A,B,C 
causes the computer to pause during execution, print a question mark, 
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and wait for the user to type three numerical values separated by 
commas. The values typed are entered to the computer by typing the 
RETURN key. 

As in the program above, the question mark is grammatically useful 
if a printed question is to prompt the typing of the input values. 

The output for the program begins after the word RUN and includes 
a verbal description of the numbers. This verbal description on the 
output is optional with the programmer, although it has a definite 
advantage in ease of use and understanding. 

When the correct number of variables have been typed in answer 
to the printed ? character, type the RETURN key to enter the values 
to the computer. If too few values are listed, the computer prints 
another ? to indicate that more data is requested. If too many values 
are typed, the excess data on that line is ignored. 

Messages to be printed at execution time can be inserted within 
the INPUT statement itself. The message is set off by double quotes 
from the other arguments of the INPUT statement. For example: 



1J2( INPUT "YOUR AGE IS"; A 

is equivalent to 

10 PRINT "YOUR AGE IS"; 
2(? INPUT A 

(For a description of the PRINT statement and the use of the semi- 
colon and comma characters, see section 3.11.) 

3.11 PRINT STATEMENT 

The PRINT statement is used to output data onto the terminal 
teleprinter. The general format of the print statement is: 



line number PRINT ^list ^ 



where the list can contain expressions, text strings, or both. As 
the situar"^ ijfa^eets indicate, the list is optional. Used alone, the 
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PRINT Statement: 

25 PRINT 

causes a blank line to be printed on the teleprinter {a carriage 
return/line feed operation is performed) . 

PRINT statements can be used to perform calculations and print 
their results. Any expression within the list is evaluated before a 
value is printed. Consider the following program: 

10 LET A=l: LET B=2 : LET C=3+A 

20 PRINT 

30 PRINT A+B+*C 

When this program is executed, a carriage return/line feed is per- 
formed at the terminal (line 20) and the number 7 is printed. 

The PRINT statement can be used anywhere in a multiple statement 
line. For example: 

10 A=l: PRINT A: A=A+5 : PRINT: PRINT A 

would cause the following to be printed on the terminal when 
executed: 

1 
6 

Notice that the teleprinter performs a carriage return/line feed at 
the end of each PRINT statement. Thus the first PRINT statement 
causes a 1 and a carriage return/line feed, the second PRINT statement 
is responsible for the blank line, and the third PRINT statement 
causes a 6 and another carriage return/line feed to be output. 

3.11.1 Formatting Printout into Columns 

BASIC considers the terminal printer to be divided into five 
zones of 14 spaces each. When an item in a PRINT statement is 
followed by a comma, the next value to be printed will appear in the 
next available print zone. For example: 



10 LET A=3: LET B=2 

20 PRINT A,B,A+B,A*B,A-B,B-A 
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When the preceding lines are executed, the following is printed: 



3 
-1 



Notice that the sixth element in the PRINT list is printed as the 
first entry on a new line. 

Two commas together in a PRINT statement cause a print zone to 
be skipped. For example: 

IJ? LET A=l: LET B=2 
2J3f PRINT A,B, ,A+B 



will cause the following to be printed: 



If the last item in a PRINT statement is followed by a comma, 
the next value to be printed by a later PRINT statement will appear 
in the next available print zone. For example: 

10 A=1:B=2:C=3 

2i2f PRINT A,: PRINT B: PRINT C 

RUNNH 

1 2 

3 

READY 



If a tighter packing of printed values is desired, the semi- 
colon character can be used in place of the comma. A semicolon 
causes the next value to be printed J3»e- spaces to the right of the 

preceding printout. A semicolon following the last item in the list 

, . J-v/yt> 

causes the next printed value to appear 6«« spaced to the right of 

the preceding value on the same line (provided there is room left 

on the line for printing) . The following example shows the various 

uses of the semicolon and comma. 
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LISTNH 

IjJ LET A=l: B=2: C=3 

20 PRINT A;B;C; 

30 PRINT A+1;B+1;C+1 

4J? PRINT A,B,C 

READY 

RUNNH 

12 3 2 3 4 

1 2 

READY 



3.11.2 Character Strings in PRINT Statements 

The PRINT statement can be used to print a message, either alone 
or together with the evaluation and printing of numeric values . 
Characters are indicated for printing by enclosing them in single or 
double quotation marks (therefore each type of quotation mark can 
only be printed if surrounded by the other type of quotation mark) . 
For example: 

LISTNH 

10 PRINT "THIS IS A TEXT STRING" 

20 PRINT '"NEVERMORE"' 

READY 

RUNNH 

THIS IS A TEXT STRING 

"NEVERMORE" 

READY 

As another example, consider the following line: 

40 PRINT "AVERAGE GRADE IS " ; X 

which prints the following (where X is equal to 83.4): 

AVERAGE GRADE IS 83.4 

When a character string is printed, only the characters between 
the quotes appear; no leading or trailing spaces are added. Leading 
and trailing spaces can be added within the quotation marks using 
the keyboard space bar; the spaces will appear in the printout 
exactly as they are within the quotation marks. 

When a comma separates a text string from another PRINT list 



3-40 



item, the item is printed at the beginning of the next available 
print zone. Semicolons separating text strings from other items are 
ignored. Thus, the previous example could be expressed as: 

4)2f PRINT "AVERAGE GRADE IS " X 

and the same printout would result. A colon or semicolon appearing 
as the last item of a PRINT list will always suppress the carriage 
return/line feed operation. 

The following example demonstrates the use of the formatting 
characters (, and ;) with text strings. 

120 PRINT "STUDENT NUMBER "X, "GRADE = "G;"AVE. = "A; 
13^21 PRINT "NO. IN CLASS = "N 

could cause the following to be printed (assuming calculations were 
done prior to line 130) : 

STUDENT NUMBER 11556 GRADE = 76 AVE. =85.4 NO. IN CLASS = 27 

The above line is exactly 72 characters long (the length of the tele- 
printer line) . The user is advised to limit the length of his lines 
for output to 72 characters to avoid their being partially printed 
on the next line. 

If a PRINT statement contains a message to be printed beginning 
with a quotation mark and not limited by a closing quote, the entire 
statement is printed as though the quote were the last character. 
For example: 

10 PRINT "A =;X 
causes 

A =;X 
to be printed, while (if X=3) : 

IP PRINT "A =" ;X 
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causes 

A = 3 
to be printed. 

3.12 STOP AND END STATEMENTS 

The STOP and END statements are used synonymously to terminate 
program execution. The END statement is usually the last statement 
in every BASIC program. The STOP statement can occur several times 
throughout a single program with conditional jumps determining which 
is the actual end of the program. The END statement is of the form: 

ttne number END 

The line number of the END statement should be the largest line 
number in the program. Any lines having line numbers greater than 
that of the END statement are not executed. 



NOTE 

A program will execute without an END statement; 
however, an error message is printed if a program 
is recalled having been saved without an END 
statement . 

The STOP statement is of the form: 



line number STOP 

and is the equivalent to a GOTO n, where n is the line number of the 
END statement. 

Execution of a STOP or END statement causes the message: 
READY 

to be printed by the teleprinter. This signals that the execution 
of a program has been completed. 
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CHAPTER 4 
IMMEDIATE MODE OPERATIONS 

4.1 USE OF IMMEDIATE MODE FOR STATEMENT EXECUTION 

It is not always necessary to write a BASIC program to use the 
RSTS-11 system. Most of the statements discussed in this manual can 
either be included in a program for later execution or be given as 
commands, which are immediately executed by BASIC. This latter 
facility permits the RSTS-11 user to have an extremely powerful desk 
calculator available whenever he is on-line. 

BASIC-Plus distinguishes between lines entered for later execu- 
tion and those entered for immediate execution solely on the presence 
(or absence) of a line number. Statements which begin with line 
numbers are stored; statements without line numbers are executed 
immediately upon being entered to the system. Thus the line: 

l!2f PRINT "THIS IS A PDP-ll" 

will produce no action at the console upon entry, while the statement: 

PRINT "THIS IS A PDP-11" 
THIS IS A PDP-11 

READY 

when entered causes the immediate output shown above. The READY mes- 
sage is then printed to indicate the system readiness for another 
direct command. 

4.2 PROGRAM DEBUGGING 

Immediate mode operation is especially useful in two areas: 
program debugging and the performance of simple calculations in situa- 
tions which do not occur with sufficient frequency or with sufficient 
complications to justify a complete program being written. 

In order to facilitate debugging a user program, the user can 
place STOP statements liberally throughout the program. Each STOP 
statement will cause the program to halt, at which time the user can 
examine various data values, perhaps change them in Immediate Mode, 
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and then give the 



CONT 



command to continue his program execution. 

4.3 ONE STATEMENT PER LINE 

When using Immediate Mode, nearly all the standard verbs can be 
used to generate or print results. In Immediate Mode, however, there 
can only be one BASIC statement per line. If a ":" is included in an 
Immediate Mode statement, the instructions to its right are ignored. 
For example : 

A==l: PRINT A 

will cause the variable A to be assigned the value 1, but nothing is 
printed at the console. This operation could be successfully per- 
formed as follows: 

A=l 

READY 
PRINT A 
1 

READY 

Since multiple statement lines are ignored in Immediate Mode, 
explicit FOR-NEXT loops are not possible. The use of the FOR 
modifier {and all other modifiers) is allowed. Thus a table of square 
roots can be produced as follows: 

PRINT I, SQR(I) FOR 1=1 TO IJ? 

1 1 

2 1.4142136 

3 1.7320508 

4 2 

5 2.236068 

6 2.4494897 

7 2.6457513 

8 2.86284271 

9 3 

10 3.1622777 

READY 
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4.4 RESTRICTIONS ON IMMEDIATE MODE 

Some statements, particularly those that would cause execution 
of lines within a user's stored program, are not allowed in Immediate 
Mode. These statements include: 

GOTO 

GOSUB 

References to user defined functions 

Thus the following dialog might result if the user defined a function 
in his program and tried to reference it in Immediate Mode. 

1^ DEF FNA(X) = X+2 + 2*X 1 SAVED STATEMENT 
PRINT FNA(l) : IMMEDIATE MODE 

PLEASE USE THE RUN COMMAND 

READY 

Certain commands make no logical sense when used in Immediate Mode. 
When these are given, the message ILLEGAL IN IMMEDIATE MODE is given: 

DEF FNA(X) = 1 

ILLEGAL IN IMMEDIATE MODE 

READY 

Commands in this category include: 

DEF 

DIM 

DATA 

FOR 

RETURN 

NEXT 

FNEND 



4-3 



PART II 



BASIC-PLUS ADVANCED FEATURES 



This part of the manual describes the special features of 
BASIC-Plus which make the language a superior tool for all manner 
of data manipulation. Additional capabilities of the statements 
previously described are included, along with new statements, 
character string manipulating facilities, integer mode variables 
and arithmetic, intrinsic matrix functions, disk and DECtape storage 
of data files, and a complete description of all BASIC Input/Output 
facilities. 

In general, the new techniques presented here allow the user 
to write programs which conserve core space and enhance execution 
time. With the ability to manipulate character strings, the user 
can write sophisticated programs requiring the ability to handle 
a wide range of data. Formatting of output is also described to 
enable the user to obtain maximum effective output. 

The matrix functions allow the user to perform matrix I/O, 
and the matrix operations of addition, subtraction, multiplication, 
inversion, and transposition. 



CHAPTER 5 
CHARACTER STRINGS 



5.1 CHARACTER STRINGS 

The previous chapters describe the manipulation of numerical 
information only; however, BASIC also processes information in the 
form of character strings. A string, in this context, is a sequence 
of characters treated as a unit. A string can be composed of alpha- 
betic, numeric, or alphanumeric characters. (An alphanumeric string 
is one which contains letters, numbers, spaces, or any combination 
of characters.) 

Without realizing it, the reader has already encountered char- 
acter strings. Consider the following program which prints the name 
of a month, given its number (the ON GOTO statement is described in 
section 9.2): 

LISTNH 

10 INPUT "NUMBER OF MONTH IS";N 

15 IF N<1 OR N>12 THEN STOP 

20 ON N GOTO 3)3, 35 , 4(2(, 45 , 50,55 ,60 , 65 , 7j2f , 75 , 80, 85 

30 PRINT "JANUARY": GOTO 90 

35 PRINT "FEBRUARY": GOTO 90 

40 PRINT "MARCH" : GOTO 90 

45 PRINT "APRIL" : GOTO 90 

50 PRINT "MAY" : GOTO 90 

55 PRINT "JUNE": GOTO 90 

60 PRINT "JULY": GOTO 90 

65 PRINT "AUGUST": GOTO 90 

70 PRINT "SEPTEMBER": GOTO 90 

75 PRINT "OCTOBER" : GOTO 90 

80 PRINT "NOVEMBER" : GOTO 90 

85 PRINT "DECEMBER": GOTO 90 

90 END 

READY 

RUNNH 

NUMBER OF MONTH IS? 7 

JULY 

READY 

In Chapter 3 we saw how the INPUT and PRINT statements could be 
used to print a verbal message along with the input and output of 
numeric values. These messages are actually character string con- 
stants (much like the number 4 is a numeric constant) . In a similar 
way, there are character string variables and functions. 
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5.1.1 Character String Names 

Variable names can be introduced for simple strings and for both 

lists and matrices composed of strings (which is to say one and two 

dimensional string matrices) . Any variable name followed by a dollar 

sign ($) character indicates a string variable. For example: 

A$ 
C7$ 

are simple string variables. Any list or matrix variable name 
followed by the $ character denotes the string form of that variable. 
For example: 

V$(n) M2$(n) 

C$(m,n) Gl$(m,n) 

where m and n indicate the position of that element of the matrix 
within the whole. 

The same name can be used as a niomeric variable and as a string 
variable in the same program with the restriction that a one and a 
two dimensional matrix cannot have the same name in the same program. 
For example : 

A A(n) 

A$ A$(m,n) 

can all be used in the same program, but 

A(n) and A(m,n) 
or 

A$ (n) and A$ (m,n) 

cannot . 

5.1.2 Characteristics of Strings 

A character string can contain any number of characters (from 
J? to n) . However, the LINE FEED key cannot be used to type a string 
on two or more terminal lines. Since core storage is limited, 
strings can also be saved in files on the system disk (see 
section 7.1). 
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string lists and matrices are defined with the DIM statement, 
as are numerical lists and matrices. For example: 

IJ? DIM Sl$(5) 

indicates that there are six strings, S1$(J2() through Sl$(5), which 
can be separately accessed. If a DIM statement is not used, a sub- 
scripted string variable is assumed to have a dimension of 10 (11 
elements) . Note that the dimension of a string matrix specifies the 
number of strings and not the number of characters in any one string. 
For example, if the first statements in a program are: 

10 FOR I = 1 TO 7 

20 LET B$(I) = "PDP-11" 

30 NEXT I 

they would cause a list B$(n) to be created having 11 accessible 
elements, B$ (j2() through B$(1J2(). The elements B${1) through B$(7) 
are set equal to "PDP-11" and the others would be null strings 
(have no characters) . As a general rule, all lists and matrices 
should be dimensioned to the maximum size being referenced in the 
program. 

Just as numbers can be used as constants as well as being 
referenced by variable names, BASIC-Plus allows for character string 
constants. In line 20 above, "PDP-11" is a character string constant. 
Character string constants are delimited by either single or double 
quotes . For example : 

IjafS LET Y$ = "FILE4" 

33 Bl$ = 'CAN' 

ii0 IF A$ = "YES" GOTO 25j? 

Character string constants can be used in any statement where their 
use has a logical meaning. 

When applied to string operands, the relational operators 
indicate alphabetic sequence. For example: 

55 IF A$(I)<A$(I+1) GOTO 100 

When line 55 is executed the following occurs: A$(I) and A$(I+1) are 
compared; if A$(I) occurs earlier in alphabetical order than A$(I+1), 
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execution continues at line 100. Table 5-1 contains a list of 
the relational operators and their string interpretations. 

In any string comparison, trailing blanks are ignored. That is 
to say "YES" is equivalent to "YES ". 

TABLE 5-1 



Relational Operators Used With 
String Variables 



Operator Example Meaning 

A$ = B$ The strings A$ and B$ are equivalent. 

< A$ < B$ The string A$ occurs before B$ in alpha- 

betical sequence. 

<= A$ <= B$ The string A$ is equivalent to or occurs 

before B$ in alphabetical sequence. 

> A$ > B$ The string A$ occurs after B$ in alpha- 

betical sequence. 

>= A$ >= B$ The string A$ is equivalent to or occurs 

after B$ in alphabetical sequence. 

<> A$ <> B$ The strings A$ and B$ are not equivalent. 



5.2 INDIVIDUAL CHARACTERS WITHIN STRINGS, CHANGE STATEMENT 

Individual characters in a string can be referenced through use 
of the CHANGE statement. The CHANGE statement permits the user 
program to transform (the entirety of) a character string into a list 
of numeric values or a list of numeric values into a character string. 
Each character in a string can be converted to its ASCII equivalent 
or vice versa. Table 5-2 describes the relationship between the ASCII 
characters and their numerical values. 

As an illustration, consider the following: 

LISTNH 

10 DIM X(3) 

15 LET A$ = "CAT" 

2j3 CHANGE A$ TO X 

25 PRINT X(JZ();X(1);X(2);X(3) 
30 END 

READY 

RUNNH 

3 67 65 84 

READY 
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TABLE 5-2 
ASCII CHARACTER CODES 





ASCII Code No. 




ASCII Code No 


Character 


(Decimal) 


Character 


(Decimal) 


5p?^^ 


32 


64 


1 


33 


A 


65 


II 


34 


B 


66 


# 


35 


C 


67 


$ 


36 


D 


68 


% 


37 


E 


69 


& 


38 


F 


70 


' 


39 


G 


71 


( 


40 


H 


72 


) 


41 


I 


73 


* 


42 


J 


74 


+ 


43 


K 


75 


/ 


44 


L 


76 




45 


M 


77 


, 


46 


N 


78 


/ 


47 





79 





48 


P 


80 


1 


49 


Q 


81 


2 


50 


R 


82 


3 


51 


S 


83 


4 


52 


T 


84 


5 


53 


U 


85 


6 


54 


V 


86 


7 


55 


w 


87 


8 


56 


X 


88 


9 


57 


Y 


89 


; 


58 


Z 


90 


/ 


59 


[ 


91 


< 


60 


\ 


92 


= 


61 


] 


93 


> 


62 


f 


94 


? 


63 


■«- 


95 



Additional symbols useful on output are as follows: 

LF (line feed) 10 
CR (carriage return) 13 

The above list is not complete; there are 12 8 characters 
numbered through 12 7. 
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X(l) through X(3) take on the ASCII values of the characters in the 
string variable A$. The first element of X, X(JJ) becomes the number 
of characters present in A$. If more characters are present in the 
string variable than can be accommodated in the numeric list, the 
message "SUBSCRIPT OUT OF RANGE" is printed. The first element of 
the list becomes the number of characters in the string which have 
been successfully transformed into numeric values, and will be less 
than or equal to the dimension of the list. 

Another program performing this operation is shown below: 



LISTNH 

IpT DIM A(65) 

15 READ A$ 

20 CHANGE A$ TO A 

25 FOR 1=0 TO A(j2r) 

30 PRINT A(I);:NEXT I 

35 DATA ABCDEFGHIJKLMNOPQRSTUVWXYZ 

4:0 END 

READY 

RUNNH 

26 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 
88 89 90 

READY 



Notice that A()3r) = 26. 

To change numbers into string characters, CHANGE is used as 
follows: 



LISTNH 

10 FOR 1=0 TO 5 

15 READ A (I) 

20 NEXT I 

25 DATA 5,65,66,67,68,69 

30 CHANGE A TO A$ 

35 PRINT A$ 

40 END 

READY 

RUNNH 
ABODE' 

READY 

This program prints ABODE because the numbers 65 through 69 are 
the code nxombers for A through E. Before CHANGE is used in the 
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matrix-to-string direction, the progranuner must indicate the niamber of 

characters in the string as the zero element of the matrix. In line 

15 of the previous program, A(jll) is read as 5. The following is 
another example : 

LISTNH 

IJ? DIM V(12 8) 

15 INPUT "HOW MANY CHARACTERS" ;V(0) 

20 FOR 1=1 TO V(J?) 

25 INPUT V(I) 

3j2r NEXT I 

35 CHANGE V TO A$ 

40 PRINT A.$: END 

50 END 

READY 

RUNNH 

HOW MANY CHARACTERS? 3 

? 67 

? 64 

? 87 

COW 

READY 



Numbers which have no character equivalent in Table 5-2 do 
not cause a character to be printed. 

5.3 STRING INPUT 

The READ, DATA, and INPUT statements can be used to input string 
variables to a program. For example: 

10 READ A$, B, C, D 

20 DATA 17, 14, 13.4, CAT 

causes the following assignments to be made: 

A$ = the character string "17" 

B = 14 

C = 13.4 

reading D as CAT causes an error message to be printed 

Quotation marks are necessary around string items in DATA statements 
only if the string contains a comma or if embedded blanks within the 
string are significant. Quotes (single or double) are always 
acceptable around string items, even though not always necessary. For 
example, the items in line 40 in the following program are all 
acceptable character strings and would be read as printed. 
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LISTNH 

IjH READ A$,B$,C$,D$,E$ 

2J2( PRINT A$;B$;C$;D$;E$ 

3)3 PRINT A$,B$,C$,D$,E$ 

4J2( DATA "MR. JONES", MISS SMITH, "MRS. BROWN", "MISS", '"MR"' 

READY 

RUNNH 

MR. JONESMISSSMITHMRS . BROWNMISS"MR" 

MR. JONES MISSSMITH MRS. BROWN MISS "MR" 

n 

READY 

A READ statement can appear anywhere in a multiple statement line, 
but a DATA statement must be the only statement on a line. See also 
the section on MAT READ which reads matrices (either numeric or 
string) section 8.1. 

The INPUT statement is used to input character strings exactly 
as though accepting numeric values. For example: 

1!S INPUT "YOUR NAME" ;N$, "AGE" ;A 

is equivalent to 

1^ PRINT "YOUR NAME"; 
15 INPUT N$ 
2J? PRINT "YOUR AGE" ; 
25 INPUT A 

Another feature of the INPUT statement when used with character 
string input is the INPUT LINE statement of the form: 

line number INPUT LINE <string variable> 

For example: 

Ij? INPUT LINE A$ 

which causes the program to accept a line of input from the terminal 
up to 72 characters long (the length of the terminal line) containing 
embedded spaces, punctuation characters, or quotes. Any characters 
are acceptable in a line being input to the program in this manner. 
The program can then treat the line as a whole or in smaller segments 
as explained in section 5.5 which describes string functions. 
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When inputting or reading strings, leading blanks are ignored 
unless enclosed in single or double quotes. 

5.4 STRING OUTPUT 

When character string constants are included in PRINT statements, 
only those characters within quotes are printed. No leading or 
trailing spaces are added. For example: 

LISTNH 

lJ2f X=l.j2f:Y=2.p(l 

2)? PRINT "A = ";X " B = "Y 

30 PRINT "DONE" 

40 END 

READY 

RUNNH 

A = 1 B = 2.01 

DONE 

READY 

Semicolons separating character string constants from other list items 
are optional. In line 1© above the variable Y is not separated from 
the character string " B = ". 

Character string output can also contain the string functions 
described in section 5.5. 

5.5 STRING FUNCTIONS 

Like the intrinsic mathematical functions found in BASIC, 
BASIC-Plus contains various functions for use with character strings. 
These functions allow the program to access part of a string, deter- 
mine the length attribute of a string, generate a numeric string 
or value given a numeric value or string, search for a substring 
within a larger string, and other useful operations. ( These func- 
tions are particularly useful when dealing with whole lines of 
alphanumeric information input with an INPUT LINE statement.) The 
various functions are summarized in Table 5.3. 

5.5.1 user Defined String Functions 

Functions can be written (see section 3.7.3 and 9.1) containing 
string variables in the same way as they are created for numeric 
variables. The name of the function is indicated as being a string 
function by the $ character after the function name. 
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TABLE 5.3 
String Functions 



Function Code 



LEFT(A$,N) 






1. PaPAH.' S'«-'SSTE C) 

MID(A$,N1,N2) 
LEN(A$) 



CHR$(N) 



ASCII (AS) 



DATE${pf) 



INSTR(N1,A$,B$) 



SPACES (N) 
NUM$(N) 

VAL(A$) 



Meaning 

Indicates a substring of the string A$ from the 
first character to the Nth character (the leftmost 
N characters of the string A$) . 

Indicates a substring of the string A$ from the 
Nth character to the last character in A$ (the 
rightmost characters of the string A$ starting 
with the Nth character) . 

Indicates a substring of the string A$ starting 
with character Nl and N2 characters long (the 
characters between and including the Nl to N1+N2-I 
characters of the string A$) . 

Indicates the number of characters in the string 
A$ (including trailing blanks) . 

Indicates a concatenation operation. For example: 

"ABC" + "DEF" is equivalent to "ABCDEF" 

"12" + "34" + "56" is equivalent to "123456". 

Generates a character string having the ASCII 
value of N (see Table 5.2). For example: CHR$(40) 
is equivalent to "{", Only one character can be 
generated. 

Generates the ASCII value of the first character 
in A$. For example, ASCII ("X") is equivalent to 
88, the ASCII value of X. 

Indicates the current date in the form: 

12-JUN-71 
This quantity can be printed on output by simple 
reference to the function. 

Indicates a search for the substring B$ within 
the string A$ beginning at character position Nl. 
Returns a value of fl if B$ is not in A$, and the 
character position of B$ if B$ is found to be in 
A$ (character position is measured from the 
start of the string) . 

Indicates a string of N spaces. 



TIME$()2I) 



Indicates a string of numeric characters repre- 
senting the value of N as it would be output by 
a PRINT statement. For example: NUM$ (1 .gf000) = 

Computes the numeric value of the string of 
nvimeric characters A$. If A$ contains any char- 
acter not acceptable as numeric input with the 
INPUT statement, an error results. For example: 
VAL("15")=15 

Generates the time of day as a string of the 
form: 

12:59 AM 



1. 
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For example, the following multiple line function (see section 
9.1) returns the string which comes first in alphabetical order: 

Iff DEF FNE^A$,B$) 

20 FNF$=A$ 

3li IF A$>B$ THEN FNF$=B$ 

4J? FNHND 

The following function combines two strings into one string: 

10 DEF FNC$(X$,y$)=X$+Y$ 

Numbers cannot be used as arguments in a function where strings 
are expected or vice versa. The following line is unacceptable . 

80 LET Z=FNA$(4) 

The following code is a string function which returns the left- 
most 5 digits from the sum of 3 arguments : 

75 DEF FNA$(X,Y,Z) = LEFT (NUM$ (X+Y+Z) , 5) 
80 PRINT FNA$(1E6,1E5,1E4) 

The output of line 80 looks as follows: 

111J?J2( 
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CHAPTER 6 
INTEGER VARIABLES AND INTEGER ARITHMETIC 



6.1 INTEGER VARIABLES 

Normally, all numeric values (variables and constants) specified 
in a BASIC program are stored internally as floating point numbers 
(three words per value) . If operations to be performed deal with 
integer numbers, significant economies in storage space can be 
achieved by use of the integer data type (which uses only one word 
per variable) . Integer variables (and constants) can assume values 
in the range -32,76 8 to +32,76 7. 

A constant, variable, or function can be specified as an integer 
type by terminating its name with the % character. For example: 

100% A% FNX%(Y) 

-4% Al% FNL%(N%,L%) 

6.2 INTEGER ARITHMETIC 

Arithmetic performed with integer type variables is performed 
modulo 2+15. The number range -32,768 to +32,767 is treated as 
continuous with the number after +32,76 7 equal to -32,76 8. Thus, 
32767 + 2 = -32767 and so on. 

Integer division forces truncation of any remainder; for 
example 5/7=0 and 199/100=1. Operations can be performed in which 
both integer and floating point data are freely mixed. The result is 
stored in the format indicated as the resulting variable, for 

example : 

25 LET X% = N% + FNA(R)*2 

The result of the expression on the right is truncated to provide 
an integer value for X%. 

As another example, the statement below: 

10 PRINT 2/4, 2%/4, 2/4%, 2%/4% 
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when executed causes the following to be printed: 



.5 



6.3 INTEGER I/O 

Input and output of integer type variables is performed in 
exactly the same manner as operations on floating point variables. 
{Remember that in cases where a floating point variable has an 
integral value it is automatically printed as an integer but is still 
stored internally as a floating point number and hence takes more 
storage space.) For example: 

10 READ A, B%, C, D% , E 
20 PRINT A, B%, C, D% , E 
30 DATA 2,3,4.^,5.7,6.8 

when executed prints: 

2 3 4 5 6.8 

6.4 USER DEFINED INTEGER FUNCTIONS 

Functions can be written to handle integer variables as well as 
floating point variables (see sections 3.7.3 and 9.i). The function 
is defined to be of integer type by following the function name with 
the % character. 

A function to return the remainder when one integer is divided by 
another is shown below: 

10 DEF FNR%(I%,J%) = I%-J% * (I%/J%) 

and could be called later in a program as follows: 

100 PRINT FNR%(A%,11%) 

Integer arguments can be used where floating point arguments 
are expected and vice versa. However, strings cannot be used where 
numbers are required (or vice versa) . 

75 DEF FNA$(X%) = X%-1 
80 LET Z = FNA% (12.34) 

is acceptable. Z equals 11 after line 80 has been executed. 
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6.5 USE OF INTEGERS AS LOGICAL VARIABLES 

Integer variables can be used within IF statements in any place 
that a relational expression can appear. An integer value of J?l 
corresponds to the logical value FALSE, and non-zero integers are 
defined to be TRUE. Any logical operators specified (AND, OR, NOT, 
XOR, IMP, EQV) operate on logical data in a bitwise manner; thus the 
integer -1% (which is represented internally as sixteen binary ones) 
is normally used when a TRUE value is required. 

Logical values generated by BASIC always have the values -1% (TRUE) 
and jS% (FALSE) . 

The following Immediate Mode sequence illustrates the use of 
integers in logical applications : 

IF -1% THEN PRINT "TRUE" ELSE PRINT "FALSE" 
TRUE 

READY 

IF -1% AND 0% THEN PRINT "TRUE" ELSE PRINT "FALSE" 

FALSE 

READY 

IF 4% AND 2% THEN PRINT "TRUE" ELSE PRINT "FALSE" 

FALSE 

READY 

IF -1% IMP -1% THEN PRINT "TRUE" ELSE PRINT "FALSE" 

TRUE 

READY 

IF 1<0 XOR -1% THEN PRINT "TRUE" ELSE PRINT "FALSE" 
- FALOD VeO^ 

READY 
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CHAPTER 7 
DATA STORAGE CAPABILITIES 



7.1 FILE STORAGE 

Thus far, techniques have been presented for entering data into 
a program as it is written (via READ and DATA statements) or when it 
is executed (via the INPUT statement) . Both of these techniques 
pose operational problems when the amount of data a program reads 
or writes is increased beyond a few items. In order to alleviate 
these problems, BASIC-Plus provides the user with a facility to 
define Input/Output files. 

A BASIC-Plus file consists of a sequence of data which is trans- 
mitted to (or from) a BASIC program from (or to) an external Input/ 
Output device connected to RSTS-11. The external device can be the 
user's terminal, some other terminal, the RSTS system disk, a line 
printer, magnetic tape, or high-speed paper tape equipment. Each 
file has both an external name by which it is known within the system 
and an internal file designator (a number used to refer to the file 
within the program) . A special statement (OPEN, see section 7.4) is 
used to associate an external name with an internal designator. 

An external file name is completely specified with the follow- 
ing information: 

device : filename . extension Iproj ^prog'] 

where the device can be one of the following: 

2if : BGV r . system disk 
OtU ; DTA)? to DTA7 ; DECtape units to 7 

Pd :' PTirr high-speed paper tape reader 

PP PTP "; high-speed paper tape punch 

t-l"' -LPT! line printer 

^^ ■ -CDR: card reader 

M(2; MDir r mark-sense card reader 

Id: ■'SVTz user's terminal 

iC6.i : ' MY rr: terminal n in the system 

$ system library 
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The filename is a six character (maximum) alphanumeric name. The 
extension is a three character (maximum) alphanumeric file name 
extension usually specifying the type of file. The extensions used 
by the system are as follows (the user can create his own extensions) : 

.BAS BASIC source program, ASCII format 
.BAG Compiled BASIC progrsun, binary format 
.TMP System scratch file for temporary use 

A user can have up to 12 files open (with internal designators 
1 through 12) for access at any given time. Each open file consumes 
a buffer within core storage. The buffer sizes for various devices are 
indicated in Table 7-1. If a buffer cannot be created for a file, due 
to a lack of storage space in core, then the file cannot be opened. 
(The process of opening a file is described in section 7.2) 



Table 7-1 
DEVICE BUFFER SIZES 

Device Buffer Size 

DP ; OSKr 256 words 

O^P* DTAn. 256 words 

P(2. : "PTR"! 64 words 

PP' -PTP: 64 words 

l~f" tlPrr- 6 4 words 

(^g,: TTY -: — 64 words 



7.2 OPEN STATEMENT 

The OPEN statement is used to associate a file on a bulk storage 
device or an I/O device with an internal file designator. This allows 
the file to be readily referenced in INPUT, PRINT, and (in some cases) 
DIM statemepts. The format of the OPEN statement is as follows: 

C 1 INPUT ■ C 
line number OPEN <strrnq> ">FOR I „„„„„„! r AS FILE<ea;pression> 

^ / ! OUTPUT; S ^ 
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For example: 

IfS OPEN "pyR:" FOR INPUT AS FILE 1 
2ja INPUT #1, A$ 

Line number 10 causes the paper tape reader to be opened as an input 
source with the internal file designation 1. Line number 20 causes 
input to be accepted from file #1, and the input is associated with 
the variable A$. 

The formats for the INPUT and PRINT statements to be used with 
the OPEN statement are as follows: 

line number INPUT %<expression> ,<list> 
line number PRINT %<expression>,<list> 

where the expression is the same expression present in the OPEN 
statement (the internal file designator) and the list is a list of 
variable names (or constants as explained in the sections on the 
PRINT and INPUT statements) . (The virtual matrix dimension statements 
reference OPEN statements without the FOR INPUT or FOR OUTPUT 
phrase, as explained later.) 

The string portion of the OPEN statement can be specified as 
a string constant (in quotes) or as a variable (with its value 
deferred until program execution) . The string portion indicates the 
device on which a file is to be opened. 

RSTS-11 distinguishes between two kinds of devices: those that 
are directory-structured (disk and DECtape) and those which are not 
(all others) . When indicating a file for either input or output on 
a directory structured device, it is necessary to specify both a 
device name and a file name (and, optionally, an extension) . On 
non-directory structured devices, the device name alone identifies 
the file. Thus: 

Of: -BSif: is insufficient information to specify a file 

D^.-aSK-. FRED is sufficient to specify the file FRED on the disk 

pp. S!S9-i uniquely specifies the high-speed punch 

PP ,.:B9^:F00 specifies the high-speed punch, and FOO is ignored 

File name syntax is such that the device name DSK: is not required 
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if a file name is specified. Thus: 



DSK : FOO 



is equivalent to: 



FOO 



When a device is not specified, a file name alone always indicates 
the disk as a default storage device* However, to store a file on 
DECtape, the device must be specifically indicated: 

DTA4 : FOO 

The following sequence is useful and allows for easy change in 
the device to be used before program execution begins: 

10 LET 1$ = "PTR:" 

20 OPEN 1$ FOR INPUT AS FILE 1 

30 INPUT #1, A$ 

If a file being opened for input does not exist, an error 
message is returned. If a file being opened for output does not 
exist, it is created. If a file for output already exists and is not 
write-protected, it is deleted and recreated. 

If an assignable device is referenced in any OPEN statement and 
that device is unavailable for assignment, an error message is printed. 

File names used in an OPEN statement are composed of up to six 
alphaniimeric characters with an extension of up to three alpha- 
niomerics. Thus, an output file could be created as follows: 

10 OPEN "DSK:SCRTCH.TMP" FOR OUTPUT AS FILE Nl 

Thereafter, reference can be made to file SCRTCH.TMP on device DSK: 
as follows (notice that the internal file designator is represented 
as a variable, although its value must still be between 1 and 12) : 

100 PRINT #N1, A$, B$ 

The internal file designator (following the # character in the 
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INPUT or PRINT statements) is always in the range 1 to 12. File 
designator #^ is, by definition, alway s open as the user's terminal. 
File #^ cannot be closed or opened as any other device or file. 
Use of file #0 is indicated below (no OPEN #)? is necessary) : 

10 INPUT #P, A$ 

is equivalent to: 

10 INPUT A$ 

It is sometimes useful to be able to request keyboard input 
without having the "?" prompting character printed first. This can 
be accomplished by opening the user's terminal ("TTY:") on some 
internal file designator other than 0, since the "?" is only generated 
for input requests on file #i3, as shown in the following example: 

LISTNH 

Ij! OPEN "TTY:" AS FILE 1 

15 PRINT "WITH USE OF INTERNAL FILE DESIGNATOR:" 

20 PRINT "TYPE YOUR NAME "; 

30 INPUT #1, A$ 

A0 PRINT "FOR COMPARISON, WITHOUT FILE DESIGNATOR:" 

45 INPUT "TYPE YOUR NAME ";A$ 

READY 

RUNNH 

WITH USE OF INTERNAL FILE DESIGNATOR: 

TYPE YOUR NAME CHARLIE BROWN 

FOR COMPARISON, WITHOUT FILE DESIGNATOR: 

TYPE YOUR NAME ? CHARLIE BROWN 

READY 

If a file is being opened for both input and output or to be 
referenced as virtual disk matrices (see section 7.5), the form: 

line number 0'PElJ<string>AS FlIjE<expression> 

is used. If the file indicated by the name "string" is found, it 
will be used and, if it is not found, it will be created. 

When a program uses a statement such as: 

5!? OPEN "FOO" AS FILE 4 
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it can perform input and output to that file. However, such a file 
(FOO on the system disk) can only be referenced in a sequential 
fashion. If data is already in the file, it can be read via INPUT 
statements similar to the manner in which a READ statement pulls 
data from the DATA statement pool. Any attempt to use a PRINT state- 
ment with the file FOO will work only if there is nothing already in 
that file. If data already exists in the file FOO, a PRINT statement 
will begin to write over any data beyond the point where the INPUT 
stopped. This is not a recommended technique since the entire file 
will be garbled and useless. 

7.3 OUTPUT TO VARIOUS DEVICES 

In order to direct output to a device other than the user terminal, 
the PRINT command is formatted as follows: 

line number PRINT ii<expres8ion> , <list> 

where the expression is the internal file designator of a previously 
opened output file (see section 7.2). The list of information to be 
output can include any of the output information described as 
applicable to the PRINT statement. For example: 

Ij? OPEN "DATAl" FOR OUTPUT AS FILE 1 
2{? PRINT #1, "START OF DATA FILE" 

The above lines open a file called DATAl on the disk with internal 
file designator #1 (of 12 possible open files available in the system) . 
The first line in that file reads: START OF DATA FILE . 

To output a table of square roots on the line printer , the follow- 
ing program could be used: 

LISTNH 

Ipf LET 1$ = "LPT:" 

20 OPEN 1$ FOR OUTPUT AS FILE 1 

3i2f PRINT #1, I,SQR(I> FOR 1= 1 TO 5 

4)? END 

READY 

RUNNH 

The results would appear on the line printer as follows: 
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1 1 

2 1.4142136 

3 1.732jaf5iaf8 

4 2 

5 2.236/2(68 



7.4 INPUT FROM VARIOUS DEVICES 



Like the PRINT statement, the INPUT statement can operate upon 
devices other than the user terminal. The form: 

line number INPUT ^<ex^ression> ,<list> 

causes input to be accepted from the previously opened file or 
device indicated in the expression (see section 7.1). As long as 
the value of the expression is non-zero, the specified file is read 
through one of the 12 available user I/O buffers (internal file 
designators). If the expression is zero, or missing completely, 
input is from the user terminal. No ? character is printed on the 
terminal paper when input is requested from a device other than the 
terminal, opened on file #0. For example: 

10 OPEN "PTR:" FOR INPUT AS FILE 3 
20 INPUT #3, A$, B$ 

causes the strings A$ and B$ to be read from the high-speed paper 
tape reader. 

Note that spaces are ignored in input data. If the user wants 
to read numeric data from a file previously created (on disk or 
DECtape, for example) he should insert commas in the data when he 
prints the data in the file. For example: 

100 OPEN "DTA4:LEN" AS FILE 1 
110 PRINT #1, A "," B "," C 
200 OPEN "DTA4:LEN" AS FILE 1 
210 INPUT #1, A,B,C 
220 PRINT A,B,C 

is an acceptable sequence to print three values onto a DECtape file, 
read them from that DECtape file, and print the three values on the 
user terminal. As in the example above, once a file is opened it 
can be closed and reopened through the use of a second OPEN state- 
ment. Reopening the file moves the positioned pointer within the 
file back to the beginning of the file, so that the entire file 
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becomes available again for sequential referencing. This serves 
much the same function as a RESTORE statement would to the pool of 
DATA statements. 

7.5 VIRTUAL DATA STORAGE 

Many applications require a capability to individually address 
and update records on a disk file in a random (non-sequential) 
manner. v^Laier appxxcauxons may require luore core memory xor ^a•at-.a 
storage than is economically feasible. BASIC-Plus fills both these 
requirements with its easy-to-use random access file system, called 
virtual core. 

Essentially the BASIC-Plus virtual core system provides a mech- 
anism for the programmer to specify that a particular data matrix 
is not to be stored in the computer's core memory, but within the 
RSTS-11 file system, instead. Data stored in files external to the 
user program will survive, even after the user leaves his terminal, 
and can be retrieved by name at a later RSTS-11 session. Items 
within the file are individually addressable, as are items within 
core matrices. In fact, it is the similar way in which data are 
treated in both core and random-access files which leads to the name 
virtual core. 

The matrix format is used to store data because in a normal data 
file, described earlier, the PRINT and INPUT statements deal only 
with the next sequential data element. A normal data file, then, is 
much more limited in its applications and depends upon a strictly 
sequential treatment of I/O. With virtual data storage, the user 
can reference any element of the file, no matter where in the file it 
resides. This random access of data allows the user program to 
perform non-sequential referencing of the data for use in any BASIC 
statement {which is to say that the virtual core matrices need not 
be read into core to be available to the program for use) . 

In order for a matrix of data to exist in virtual core, it must 
be declared in a special form of the DIM statement (placed in 
program sequence somewhere after the corresponding OPEN statement) . 
This special statement is as follows: 






line number DIM # < awp*"»***fi«« > , < Z- i s t > 
where the mm/^mmmrammi^ is an integer constant between 1 and 12 and 
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corresponds to the internal file designator on which the program has 
opened an internal file (see below and also section 7.2). The variable 
list appears as it would for a normal core resident matrix DIM state- 
ment. Thus, a 100 by 100 matrix could be defined as: 

lJ3f DIM #12, AdJ?)? ,1J?J? ) 

Floating point numbers, integers, and strings can all reside in 
virtual core matrices. More than one matrix can be specified in one 
virtual core file. For example: 

25 DIM #1, A (101391) , B%(2J2(0J2() , C$(25)?(2f) 

which allocates space for 1000 floating point numbers, 2000 integer 
numbers, and 2500 character strings (16 characters long each) . 

One of the few differences in data handling between core and 
disk matrices occurs in the storage of strings within string matrices 
in virtual core. Strings in the computer core memory are of variable 
length from to any arbitrary length. Strings in virtual core are 
of fixed length (all elements having a particular name are of the same 
length) . This length can be defined by the programmer and varies from 
1 character to 512 characters. The system forces lengths to be a 
power of 2 : 

1, 2, 4, 8, 16, 32, 64, 128, 256, 512 

If the user indicates other than one of these values, he will receive 
the next higher size. Thus: 

10 DIM #1, X$(1J?)= 65 

is the same as: 

10 DIM #1, X$(1J?)= 128 

If no length is specified, a default length of 16 characters is 
assumed. The length attribute of virtual core strings is specified 
in the DIM statement, using the notation: 

15 DIM #1, A$(lpf0) = 32, B${100)=4, C$(l)2fpf) 
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where A$ consists of 101 strings of 32 characters each; 
B$ consists of 101 strings of 4 characters each; 
C$ consists of 101 strings of 16 characters each. 

If a length attribute is given in a DIM statement for an in-core 
string matrix, it is ignored, since core storage can be allocated 
dynamically to hold a string of any length. 

In order for the user to reference his virtual core file, he must 
first associate one of his files (known by name) with an internal file 
designator from 1 to 12 (which is then used in the virtual DIM 
declaration) . This is normally done with the following OPEN statement: 

line number OPEn<string>AS Fl'LE<exppession> 

where the string is the name of a disk file and the expression 
specifies an internal file designator; thus: 

35 OPEN "FOO" AS FILE 1 

associates the file named "FOO" with internal file 1. If "FOO" 
already exists, then the existing file is used; if there is no file 
named "FOO" one would be created. If the user wishes to destroy any 
old "FOO" file, he can write: 

35 OPEN "FOO" FOR OUTPUT AS FILE 1 

which causes the file to be deleted if it already exists and recreated. 
If the user wanted to be alerted that the file "FOO" is not present, 
he could write: 

35 OPEN "FOO" FOR INPUT AS FILE 1 

which would cause an error message to be printed if "FOO" is not 

found. 

Recoverable errors will occur when using virtual core if the 
user program does any of the following: 

1. Reference a virtual matrix without first opening the file. 

2. Reference a non-disk file (for example, DECtape or the 
line printer) as a virtual matrix. 

\f\A^t^ %*ci htj m^sT tc 4oW ^-^° UAk cu\i;^j ^it-tLklt ii+i** 



3. Exceed virtual core, that is, define a matrix which is 
bigger than the amount of available disk storage on the 
system or the amount which the user is allowed to own. 

Sophisticated users are urged to read Appendix E which describes the 
system implementation of the virtual core processor. A mastering of 
this information will produce programs which utilize the system 
resources in a highly efficient manner. 

As an example of virtual core usage, consider the problems of 
implementing an information retrieval system for a small organization. 
There might be 1000 employees, each needing a 2 56-character record 
containing the name, home address, phone, work station, and phone 
extension of the employee. Rather than order the records in the file, 
it is decided to maintain a separate index file containing only badge 
numbers. The order of employee records in the master file is the 
same as the badge number sequence in the index file. Thus, to extract 
information on an employee with badge n, we find his badge number in 
the index file and use the index found to retrieve his data from the 
master file. Since the number of employees is small, integer data can 
be used in the badge file; only alphanumeric data is stored in the 
master file. 

A program to print an employee's name, given his badge number, 
might appear as follows : 

10 : PROGRAM TO LOOK UP NAMES IN MASTER FILE 

20 OPEN "BADGE" AS FILE 1 I BADGE FILE 

30 OPEN "MASTER" AS FILE 2 ! MASTER FILE 

40 DIM #1, B%(1000) :i000 BADGE NUMBERS 

50 DIM #2, A$ (1000) =256 11000 RECORDS, EACH 256 

: CHARACTERS LONG 

60 INPUT "BADGE NUMBER" ;E% IGET EMPLOYEE NUMBER FROM TTY 

70 GOTO 100 IF B%(I)=E% FOR 1=1 TO 1000 lIS BADGE # IN FILE? 

80 PRINT "NO SUCH EMPLOYEE": GOTO 60 INO 

100 :WE NOW HAVE INDEX INTO FILE, I I YES 

110 R$ = A$(I) : BRING RECORD INTO CORE 

120 PRINT "NAME IS"; MID (R$ , 10, 15) INAME IS FROM COLUMN 10 TO 25 

130 GOTO 60 INEXT. . . 

7.6 CLOSE STATEMENT 

The CLOSE statement is used to terminate I/O to or from a device. 
Once a file has been closed, it can be reopened for reading or writing 
on any internal file designator. All files are automatically closed 
at the end of program execution. The format of the CLOSE statement is 

as follows: 

l.ine number CLOSE <expr>ession> 
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^ni-c/'Ak cnr»r tsu. ty96s-fe WA-rfe '2,*' { <^W'2| ^16«/^ j i^.^ f^st hecnA. 

Any number of files can be closed with a single CLOSE statement; if 
more than one, they are separated by commas. The expression indicated 
is the same expression used in the OPEN statement and indicates the 
internal file designator. By ci^osing a file with the CLOSE state- 
ment, the user frees more core storage space to open other files (a 
maximum of 12 depending upon the space available). For example: 

255 CLOSE 2, 4 
345 CLOSE LOf 

Line 255 above closes the files opened on internal device designators 
2 and 4 . Line 345 closes the file open on internal device designator 
IF. 

7.7 NAME -AS STATEMENT, FILE PROTECTION AND RENAMING 

The NAME-AS Statement is used to assign protection codes to a 
file (and to rename an existing file) . The format of the command is 
as follows: 

tine number l>iAME<string>AS<sti'ing>j<proteation>{ 

The specified file (the first string indicated) is renamed (as the 
second string indicated) . A file protection code can be specified 
within typed angle brackets, although it is not required. If a new 
file protection is specified, it is reflected in the protection 
assigned to the renamed file. 

Each user in the system is given a unique project-programmer 
number which identifies him to the system. This is a two-part number 
of the form [1^,2^] where "10" is the user's project or group number 
and "20" is his individual programmer number. Files are protected 
from various user classes determined by the project-programmer number. 
Specifically, files can be protected against: 

the owner (creator) 

other programmers in the owner's group 

all others 

The protection is part of the second string and is itself a string. 
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The following table contains the codes used to determine file 
protection. 





Protection 




Code 


Against 


Meaning 


1 


owner 


read protect 


2 


owner 


write protect 


4 


group 


read protect 


8 


group 


write protect 


16 


others 


read protect 


32 


others 


write protect 



The file protection can be specified as the sum of any combination of 
these values; for example: 

10(1 NAME "FOO" AS "FOO<48>" 

would deny access to the file FOO to anyone not in the owner's group 
C32 plus 16) . 

275 NAME "DTA2: MATRIX" AS "MAT2" 

renames the file MATRIX on DECtape 2 as MAT2 (in this case on DECtape 
2; the device specification need not be repeated) . 

7.8 KILL STATEMENT 

The KILL statement is of the form: 

tine number ¥.l'LL<string> 

and causes the file named string to be deleted from the user's file 
area. For example, when the user has completed all work with the 
j-ile XYZ.TMP on the system disk, he could remove the file from 
storage by executing the following statement: 

455 KILL "XYZ.TMP" 

A user is not allowed to KILL a file that is write-protected 
against him. (He must use the NAME-AS statement to change its protec- 
tion first.) 
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CHAPTER 8 
MATRIX MANIPULATION 

The following chapter deals with intrinsic functions to handle 
matrices. Matrices can be composed of variables of any type. A 
single matrix, however, is composed of a single type of data: float- 
ing point, integer, or character string. All MAT operations ignore 
the zero element of each matrix (A(j?) , B{fS,j!l)). 

8.1 MAT READ STATEMENT 

The MAT READ Statement is used to read the value of each element 
of a matrix from DATA statements. The format of the statement is as 
follows : 

line number MAT 'READ<list of matriaes> 

Each element in the list of matrices indicates the maximum amount of 

the matrix to be read (which cannot be greater than the dimensioned 

size of the matrix) . The individual elements are separated by 

commas. If the matrix name is used without a subscript, the entire 

matrix is read. For example: 

10 DIM A{2jll,20) 
20 MAT READ A 

The above lines read a twenty by twenty matrix of floating point 
data. Data is read in row by row; that is, the second subscript 
varies most rapidly. If line 30 had read: 

20 MAT READ A (5, 15) 

a 5 by 15 matrix would be read (the remaining elements of A are zero) . 

8.2 MAT PRINT STATEMENT 

The MAT PRINT Statement prints each element of a one or two 
dimensioned matrix. The statement is of the following form: 

line number MAT PRINT #<ea;press'ion>j <matrix name> 

If the matrix name consists of an unsubscripted matrix name, the 
entire matrix is printed. If the matrix name is subscripted, then 
the subscript indicates the maximum size of the matrix to be printed. 
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Where the expression is not included, output is to the user terminal. 



If the matrix name is followed by a semicolon (;), the values 
are printed in a packed fashion; otherwise, each element is printed 
in its own zone. 

Ij? DIM A(10,li2l) , B(20,2J2) 

120 mat print a; iprint 10*10 matrix, packed format 

130 mat print b(10,5) iprint 10*5 matrix, 5 elements per 

:line 



In order to direct the output of the MAT PRINT statement to a 
device other than the user terminal, an internal file designator is 
used following the opening of such a file. For example: 

10 DIM A(20,5) ,B(10,20) 

110 OPEN "LPT:" AS FILE 2 

120 MAT PRINT #2, A 

130 MAT PRINT #2, B; 

The above lines cause the matrices A and B to be output to the 
line printer. Remember only one matrix can be output by one MAT 
PRINT statement. In order to perform a jump to the top of the next 
line printer page, send a CTRL/L as part of a PRINTER statement to 
the line printer, or type CHR$(12) at the end of a PRINT statement. 

It is also possible to obtain printing of both row and column 
matrices. For example: 

10 DIM A(7) , X(5) 

20 MAT READ A,X 

30 MAT PRINT A;:PRINT: MAT PRINT X 

40 DATA 21,22,23,34,35,36,37,51,52,53,54,55 

50 END 

RUNNH 

21 22 23 34 35 36 37 

51 
52 
53 
54 
55 
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The format: 

MAT PRINT V 
prints the matrix V as a column matrix. 

MAT PRINT V, 
prints the matrix V as a row matrix, five values per line, while 

MAT PRINT V; 
prints the matrix V as a row matrix, closely packed. 

8.3 MAT INPUT STATEMENT 

The MAT INPUT statement is used to input the value of each 
element of a matrix from a specified input device. Where no particu- 
lar device is specified, the input is accepted from the user terminal. 
For example: 

20)3 MAT INPUT A (20) 

will cause BASIC to accept 20 floating point values as elements of the 
matrix A from the user terminal. 

A statement of the format: 

line number MAT IHVUT n<expression> ^f^ <variable list> 

causes the input to be read from a file or device, indicated by the 
expression, which has been previously opened. (For details, see the 
sections on the OPEN and INPUT statements, sections 7.1 and 7.4) 

If the input is to be from the user terminal, a ? character is 
printed to indicate that the program is ready to accept input. If 
input is from another specified device or file, no ? character is 
printed. 

Depending upon the variable names, the MAT INPUT statement can 
allow the input of integer, floating point, or character string 
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values. For example: 

2j30 0PEN"DTA1:MATN" FOR INPUT AS FILE 4 
205 DIM #4, N$(.3pf) 
21jaf MAT INPUT #4, N$ 

reads 30 elements of the file MATN on DECtape unit 1 and equates 
them with the elements of the character string matrix N. 

8,4 MATRIX INITIALIZATION STATEMENT 

A matrix initialization statement allows the user to create 
initial values for the elements of a matrix. The statement is of 
the form: 

line number MAT<name>=<u<2Zue> 7(DIMl,DIM2)j 

The name element is the name of a particular matrix, and the optional 
DIMl and DIM2 specifications indicate the maximum size of the matrix 
elements which are to be initialized to the value specified. The 
value can be one of the following: 

Value Meaning 



ZER 



Sets all elements of the matrix to J3f (this 
is true of all matrices when they are first 
created) 



CON Sets all elements of the matrix to 1 
IDN Sets up an identity matrix 

All matrices used in a matrix initialization statement must be 
previously declared in a DIM statement. If no dimensions are in- 
dicated (DIMl and DIM2 are not specified) , then the maximum dimen- 
sions of the matrix are assumed. For example: 

la DIM A(1J?,1JI), B(15), C(2j2r,2i?) 
IfSjl MAT A = ZER ISETS ALL ELEMENTS OF A=V 

1(?1 MAT B = CON (10) ISETS FIRST 10 ELEMENTS OF B=l 

102 MAT C = IDN (10, 10) IC MUST BE SQUARE 

It should be noted, however, that these instructions have no 
effect on row and column zero. Thus, the following instructions: 
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191 DIM M(2j2(,7) 

Iff MAT READ M(7,3) 

IjlJ? MAT M=CON 

llj? MAT M=ZER(15,7) 

2)2(j? MAT M=ZER(16,lja() 

first read in a 7 by 3 matrix for M. Then they set up a 7 by 3 
matrix of all I's for M (the actual dimension having been set up as 
7 by 3 in line 20) . Next they set up M as a 15 by 7 all-zero matrix. 
(Note that although this is larger than the previous M, it is within 
the limits set in 10.) An error message results because of line 200. 
The limit set in line 10 is (20+1) x (7+1) = 168 components, and in 
line 200 the program calls for (16+1) x (10+1) = 187 components. 
Thus, although the zero rows and columns are ignored in MAT instruc- 
tions, they play a role in determining dimension limits. For example: 

2j2ipf MAT M=ZER(25,5) 

would not yield an error message. 

Perhaps it should be noted that an instruction such as 
MAT READ M(2,2) which sets up a matrix and which, as previously men- 
tioned, ignores the zero row and column does, however, affect the zero 
row and column. The redimensioning which may be implicit in an in- 
struction causes the relocation of some numbers; therefore, they may 
not appear subsequently in the same place. Thus, even if we have 
first LET M(1,0) tf M(2,0) = 1, and then MAT READ M(2,2), the values 
of M(1,0) and M(2,0) now are 0. Thus, when using MAT instructions, 
it is best not to use row and column zero. 

8.5 MATRIX CALCULATIONS 

Mathematical operators and two intrinsic functions are available 
for use with matrices . 

8.5.1 Matrix Operations 

The operations of addition, subtraction, and multiplication can 
be performed on matrices using the common BASIC mathematical symbols. 

Each of the matrix operation statement is begun with the word 
MAT and followed by the expression to be evaluated. Each of the 
matrices involved must be predefined in a DIM statement. The sub- 
scripts of the matrices need not be indicated in the statement, 
although if two matrices are not conformable to an operation, a sub- 
set of one matrix can be indicated as part of the operation. 
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The following operation is acceptable: 

1)2(4 DIM A(5J2f), B(25), C(25) 
1J2I5 MAT C = A + B 

Multiplication of conformable matrices is indicated as follows: 

110 MAT C = A*B 

By conformable matrices is meant that the number of columns in matrix 
A is equal to the number of rows in matrix B. The operation A =A*B is 
illegal. 

Scalar multiplication of a matrix is performed as follows: 

115 MAT C = (K) *A 

Each element of matrix A is multiplied by the scalar value (constant, 
variable, or formula) K, indicated in parentheses. If K is not speci- 
fied, matrix A is copied into matrix C (providing sufficient space is 
available for matrix C) as shown below: 

120 MAT C = A 

The form A=(K)*A is legal. 

8.5.2 Matrix Functions 

Functions exist for the performance of transposition and inver- 
sion of matrices. 

15j2( MAT C = TRN(A) 

causes matrix C to be set equal to the transpose of matrix A. 
C(I,J) = A(J,I) for all I, J. 

151 MAT C = INV(A) 

causes C to be computed as the inverse of matrix A (A must be a square 
matrix) . After the inversion is complete, the function DET is set to 
the determinant of matrix A and can be tested to decide whether a 
singularity was found. The value of DET, then, can be used as a 
variable in any formula. For example: 

2)2(0 MAT A = INV(X) :D1=DET 
210 MAT B = INV(Y) :D2=DET 
220 IF D1<>(-'D2) GOTO 340 ELSE PRINT "RELATIONSHIP TRUE" 
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il MAT C = INV{A) 

causes C to be comfn^ted as the inverse of matrix A (A must be a 
square matrix) . After^^tjie inversion is complete, the function DET 
is set to the determinant oT jjiatrix A and can be tested to decide 
whether a singularity was f ound ."~^ - The value of DET, then, can be 
used as a variable in any formula. F&k. example : 

2;?J2P-MAT A = INV(X) :D1=DET 
^^j2( MAT B = INV(Y) :D2=DET 
^'" 22jaf IF Dl<>{-D2) GOTO 340 ELSE PRINT " RELATIQJJSHIP TRUE" 

/-' 

Matrix inversion, like the other BASIC Plus matrix operations, 
does not operate on the elements of the row and column of the 
matrix; unlike the other operations, inversion destroys the previous 
content of these elements. 
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CHAPTER 9 
ADVANCED STATEMENT FEATURES 

9.1 DEF STATEMENT, MULTIPLE LINE FUNCTION DEFINITIONS 

In Chapter 3 the DEF statement is described as having the 
ability to create a one-line function which the user can call as an 
element in a BASIC statement. The user has, by now, probably felt the 
need for a user-defined function which can extend onto more than one 
line; such a facility is available. The format for a multiple line 
definition is as follows: 

tine number DEF F'bi<identi fier>< ( dummy arguments ) > 

<body of definition> 

line number F'N<identifier>= <expression> 
line number FNEND 

The multiple line DEF function is distinguished from the one line use 
functions by the absence of an equal .sign following the function name 
on the first line. (From zero to ai gh te arguments of any type or 
mixture of types can be used.) The value returned by the function is 
the value of F^<identifier> at the time the FNEND statement is 
encountered. Somewhere within the multiple line definition there 
must be a statement of the form: 

line number jLETf FVi<identifier> = <expression> 

It is the value of this expression which is returned as the value of 
the function. 

The example function below determines the larger of two numbers 
and returns that number. The use of the IF-THEN statement is 
frequently found in multiple line functions as follows : 

IjH DEF FNM(X,Y) 

2J2f LET FNM = X 

3J? IF Y<=X THEN 5!? 

4J2f LET FNM = Y 

SjH FNEND 
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As another example, the following function computes N-factorial: 

LISTNH 

lli DEF FNF{M) 

20 IF M=l THEN FNF=1 ELSE FNF=M*FNF (M-l) 

3i2f FNEND 

35 INPUT "VALUE FOR FACTORIAL" ;M 

40 PRINT M" FACTORIAL EQUALS "FNF(M) 

READY 

RUNNH 

VALUE FOR FACTORIAL? 4 

4 FACTORIAL EQUALS 24 

READY 

Any variable which is not an argument in a multiple line DEF function 
has its current value in the user program. Multiple line DEF functions 
can be nested (one multiple line definition can reference another 
multiple line definition or itself) . There must not be a transfer 
from within the definition to outside its boundaries or from outside 
the definition into it. The line numbers used by the definition must 
not be referenced elsewhere in the program. 

The parameters with which a user defined function is called are 
strictly formal; any attempt by the program to modify them will be 
cancelled when the function exits to its calling program: 

10 DEF FNB(X) 
20 X=0 :FNB=10 
30 FNEND 
40 A=l 
50 B=FNACa) 
60 PRINT A, B 
RUNNH 
1 10 

READY 

Functions can be written in any type and can contain any variety 
of argument types. For example: 

LISTNH 

10 DEF FNA$ (A,B,C) 

20 IF A>B GOTO 40 

30 FNA$=CHR$(A+1) :GOTO 50 

40 FNA$=CHR$ (A+C) 

50 FNEND 

60 INPUT "VALUES FOR A,B ,C" ; A,B,C 

70 PRINT "FNA$(A,B,C) = "FNA$(A,B,C) 

READY (Cont.d next page) 
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RUNNH 



VALUES FOR A,B,C? 36,2,31 
FNA$(A,B,C) = C 

READY 



9.2 ON-GOTO STATEMENT 

The simple GOTO statement allows the user to unconditionally 
transfer control of the program to another line number. The ON-GOTO 
statement allows control to be transferred to one of several lines 
depending on the value of an expression at the time the statement is 
executed. The statement is of the form: 

line number ON <expression> GOTO <list of line numbers> 

The expression is evaluated and the integer part of the expression is 
used as an index to one of the line numbers in the list. For example: 

50 ON X GOTO 1910, 200, 300 

transfers control to line number 100 if the value of X is 1, to line 
number 200 if X is 2, and to 300 if X is 3. Any other values of X 
(other than 1, 2, or 3 in this example) cause a program error which 
will terminate execution or cause the error subroutine specified via 
the ON ERROR GOTO statement to be entered (see section 9.4 for details). 

9.3 ON-GOSUB STATEMENT 

The GOSUB and RETURN statements are used to allow the user to 
transfer control of his program to a subroutine and return from that 
subroutine to the normal course of program execution (see section 3.8 
for details) . The ON-GOSUB statement is used in the same manner as 
the ON-GOTO statement described in the previous section. The state- 
ment is of the form: 

line number ON <expression> GOSUB <list of line number8> 

Depending on the integer value of the expression, control is trans- 
ferred to the subroutine which begins at one of the line numbers 
listed. Encountering the RETURN statement after control is transferred 
in this way allows the program to resume execution at the line follow- 
ing the ON-GOSUB line. 

Since it is possible to transfer into a subroutine at different 
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points, the ON-GOSUB statement could be used to determine which 
portion of the subroutine should be executed. 

An example of the statement follows: 

8^ ON X GOSUB 9)?)?, 9 33, 1014 

When line 80 is executed, the value of X being either 1, 2, or 3 will 
cause control to transfer to line 900, 9 33, or 1)?14 respectively. 
If X is not equal to 1, 2, or 3, the error message. 

ON STATEMENT OUT OF RANGE AT LINE Qji 

is printed. 

9.4 ON ERROR GOTO STATEMENT 

Certain errors can be detected by BASIC while executing a user 
program. These errors fall into two broad areas: computational 
errors (such as division by 0) and Input/Output errors (reading an 
end-of-file code as input to an INPUT statement) . Normally the 
occurrence of any of these errors causes termination of the user 
program execution and the printing of a diagnostic message. 

Some simple mathematical errors are corrected (or compensated 
for) automatically by BASIC. Some applications, however, may require 
the continued execution of a user program after an Input/Output 
error occurs. In these situations, the user can execute an ON ERROR 
GOTO statement within his program. This statement tells BASIC that 
a user subroutine exists, beginning at the specified line niamber, 
which will analyze any I/O (or computational) error encountered in 
the program and possibly attempt to recover from that error. 

The format of the ON ERROR GOTO statement is as follows: 

line number ON ERROR GOTO <line number> 

If an error does occur, the user program execution is interrupted and 
the error subroutine is started at the line number indicated. The 
variable ERR in the program assumes one of the values listed in 
Table 9.1. 
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Table 9.1 
USER RECOVERABLE ERRORS 



(F) = Execution terminated if no ON ERROR GOTO statement is present 
in the program. 



ERR 



Message Printed 



1 BAD DIRECTORY FOR DEVICE 

2 ILLEGAL FILE NAME 

3 FILE IS CURRENTLY OPEN 

4 NO ROOM ON DEVICE 

5 CAN'T FIND FILE 

6 NOT A VALID DEVICE 

7 I/O CHANNEL ALREADY OPEN 

8 DEVICE NOT AVAILABLE 

9 I/O CHANNEL NOT OPEN 
10 PROTECTION VIOLATION 



11 END OF FILE ON DEVICE 

12 OPERATION ABORTED 

13 DATA ERROR ON DEVICE 

14 DEVICE OK? 

15 TELETYPE WAIT EXHAUSTED 

16 FILE OF SAME NAME EXISTS 
Al -i:T~" VIRTUAL CORE NOT ON DISK 



^^ ,J-8^ -Aff iWUAL CORE EXCBBDBD - 

M^CA^ "Tiro Bi6 

4^ .if^ VIRTUAL ARRAY NOT OPENED 



Meaning 

File lookup is impossible. (F) 

Name contains embedded blanks or 
non-acceptable characters. (F) 

user cannot write in a file while 
other users are reading it. (F) 

No storage space to store more 
data. (F) 

The file to be opened for input is 
not present on the specified 
device. (F) 

The specified device is not 
present in the system. (F) 

The channel must be closed before *^. 
another OPEN can occur on that ,-, 
channel. (F) 

Another job is using the 
specified device. (F) 

The user tried to read or write on 
an unopened channel. (F) 

The user tried to read or write a 

file protected against him or open 

another user's file that was both 

read and write protected against 
him. (F) 

user has tried to read beyond the 
end of his data. (F) 

Serious I/O failure. (F) 

Parity error detected on operation. (F) 

Device seems to be off-line or in 
need of service. (F) 

User did not respond on Teletype 
within allotted time. (F) 

user is renaming a file with a 
name already in use. (F) 

User has tried to use a non disk 
device for a virtual core matrix. (F) 

There is not enough disk available 
to store an entire virtual core 
matrix. (F) 

Referenced virtual core matrix 
without opening file first. (F) 



16 ici-^<9>^ w^o ptse. ossK- 
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Table 9.1 (Cont.) 



ERR 

-ft 2rf 

A') ^ 

so >r 



Message Printed 

ILLEGAL I/O CHANNEL 

LINE TOO LONG 

FLOATING POINT ERROR 
ARGUMENT TOO LARGE IN EXP 
ARGUMENT TOO LARGE IN SIN 
INTEGER ERROR 
ILLEGAL NUMBER 



^i -2^ TRANSCENDENTAL ERROR 

s4 7^ IMAGINARY SQUARE ROOT 

si a^ SUBSCRIPT OUT OF RANGE 

St ^Au-r nii/esi^ MAixUN. 

S") ,J<r OUT OF DATA 

S* ^al" ON-STATEMENT OUT OF RANGE 



S9 ^ NOT ENOUGH DATA IN RECORD 
/& >3^ ILLEGAL UUO FOR USER 

6/ o»JiiiotJ ^'^ iS( 



Meaning 

User has tried to open a channel 
greater than 12. (F) 

A record longer than 256 bytes was 
read from an I/O device. (F) 

Underflow or overflow has occurred. 

Inaccurate results will follow. 

Inaccurate results will follow. 

Overflow has occurred. 

A non-numeric character was 
encountered in a number. 

Attempt to take log of J3f or 
negative number. 

User requested square root of 
negative number. SQR(ABS(X)) 
returned. 

Undefined matrix element 
referenced. (F) 

user has exhausted DATA list. (F) 

The expression in an ON-statement 
was less than 1 or greater than 
the number of line numbers 
specified. 

User tried to input more data then 
existed in the next logical record 
of file. 

Invalid use of system function. (F) 



When an error is encountered in a user program, BASIC checks to 
see if the program has executed the ON ERROR-GOTO statement. If this 
is not the case, then a message is printed at the user's terminal and 
the program proceeds (if the error does not cause execution to 
terminate) . If the ON ERROR-GOTO statement was executed previously, 
then execution continues at the specified line number where the 
program can interrogate the variable ERR to discover precisely what 
problem occurred and decide what action is to be taken. 

After the problem is corrected (if this is both possible and 
desired by the program) , execution of the user program can be resumed 
through use of the RESUME statement. The RESUME statement causes the 
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program statement that originally caused the error to be reexecuted. 
If execution is to be restarted at some other point within the 
program (as might be the case for a non-correctable problem) , the new 
line number can be specified in the RESUME statement: 

1000 RESUME 
10J2I1 RESUME 100 

The first statement restarts the user program at the line in which the 
error was detected, and is equivalent to the following statement: 

1000 RESUME 

Line 1001 above will restart the user program at line 100 (which can 
be used to print some terminal message for that particular operation. 

If there are portions of the user program in which any errors 
detected are to be processed by the system and not by the user program, 
the error subroutine can be disabled by executing the following 
statement: 

tine number ON ERROR GOTO 

which allows the system to handle errors or, equivalently : 

line number ON ERROR GOTO 

in which case line is assumed. Executing this statement causes the 
system to treat errors as it would if no ON ERROR GOTO had ever been 
executed. (Anything other than a line number following the GOTO is 
equivalent to ON ERROR GOTO 0.) 

It is sometimes inconvenient to be continually turning the error 
subroutine facility on and off. For this reason, BASIC-Plus allows 
the statement 

ON ERROR GOTO 

to be executed within the error subroutine itself. Special treatment 
is accorded this case, in that the disabling occurs retroactively; the 
error which caused entry to the error subroutine is then reported 
through the normal system error reporting facilities. 
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As an example of the usage of this feature, consider an applica- 
tion in which inexperienced students interact with a BASIC program. 
These users may not know what to type at the terminal, and the program 
may want to prompt them. The program tells the system to allow up to 
60 seconds for the user to respond (via the WAIT function, described 
in section 9.10) and then to alert it that the user has not replied. 
The program then prints additional information for the user. 

10 ON ERROR GOTO 1000 I SET UP ERROR ROUTINE 

20 WAIT (60) 160 SECONDS TO RESPOND 

30 INPUT "YOUR NAME";N$ I GET STUDENT NAME 

1000 :tHIS IS THE ERROR HANDLING ROUTINE 

1001 IF ERR <> 15 THEN ON ERROR GOTO ITIME ERROR HANDLER ONLY 
1010 PRINT :SKIP TO NEW LINE 

1020 PRINT "PLEASE TYPE YOUR NAME" 

1030 PRINT "AND THEN HIT THE 'RETURN' KEY" 

1040 RESUME ITRY AGAIN 

9.5 IF-THEN-ELSE STATEMENT 

The IF-THEN Statement allows the program to transfer control to 
another line or execute a specified statement depending upon a 
specified condition. 

The IF-THEN-ELSE Statement is exactly the same as the IF-THEN 
statement, except that rather than falling through to execute the line 
following the IF statement, another line number or statement can be 
specified for execution where the condition is not met. The statement 
is of the form: 



THEN<Zine number>\ r„^„„^^. , "> 

^ „„„„ ^ J. . ELSE<i^ne number>i 
i> i THEN<si;atewent> ' -s„^„^^ ^ , ^^ < 



l^ne number lF<aond^t^on' , ^^,^.., -^ u^^,.^,,,^,,^^ -ct oc^^ j-„ + ^™ j.~> 

■^^m^^-r- I. ^ .El,SE<s tatement> , 
,GOTO<Ztne number_>, >- -^ 

where the condition is defined as one of the following: 

<relational expre88ion> <logioal operator> <relationat expression> 

and a relational expression is defined as: 

<expression> <relationat operator> <expression> 

as described in section 3.5. The specified condition is tested and if 
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it is true the THEN/GOTO part of the statement is executed. If the 
condition is false, then the ELSE part of the statement is executed. 
Following the word ELSE can be either a statement to be executed or a 
line niomber to which control is transferred. 

The IF-THEN-ELSE statement can appear anywhere in a multiple 
statement line. As an example of an IF-THEN-ELSE statement: 

75 IF X>Y THEN PRINT "GREATER" ELSE PRINT "NOT GREATER" 

Since any statement can follow either the THEN or ELSE in the above 
statement, it is possible to nest IF statements to any desired level. 
For example: 

100 IF A>B THEN IF B>C THEN PRINT "A>B>C" 

The message A>B>C is printed only if the two conditions .©pHecified are 
both true. An equivalent statement could be expressed as follows: 

100 IF A>B AND B>C THEN PRINT "A>B>C" 

To further clarify the relationship between the quantities A, B, 
and C, the following statement could be used: 

100 IF A>B THEN IF B>C THEN PRINT "A>B>C" 
ELSE IF A>C THEN PRINT "A>C>B" 

(Notice the use of the LINE FEED character to continue the statement 
on a second line.) There are two ways in which the above statement 
could be interpreted. One in which the ELSE clause is attached to the 
test A>B and one in which it is attached to the test B>C. In order to 
resolve such situations, BASIC-Plus uses the following rule: 

An ELSE clause is always associated with the nearest 
unmatched IF-THEN to its LEFT . 

Thus in the above statement the ELSE clause is executed only if the 
B>C test is false. If the A>B test had been false, execution would 
have immediately proceeded to the next statement and nothing else in 
statement 100 would be executed or tested. 

If any clause within a complex IF statement is satisfied, then 
execution proceeds to the aLalnmaHt immediately following the IF 
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statement. «Ti«»n -in n-iJiVioT- 4-hn i-.,-.vt- higVioT- nnmbrrTT'^ ■ ■ tTtr""-'n1- "r ■>hr' 
AiA/ statement to the right of . a colon t:) on the same physical line as the 

U j^ilti-v HuL. tcqpc of Hu-^TWIEW or tie. '».S£ " 

IF Statement ,^ It should be noted that several physical lines can be 
included in one logical line by use of the line feed character. 

The reader is invited to consider the following program: 

LISTNH 

If! INPUT A,B,C 

2J3f IF A>B THEN 

IF B>C THEN PRINT "A>B>C" 
ELSE IF C>A 

THEN PRINT "C>A>B" 
ELSE PRINT "A>C>B" 
ELSE IF A>C THEN PRINT "B>A>C" 
ELSE IF B>C 

THEN PRINT "B>C>A" 
ELSE PRINT "C>B>A" 

READY 

RUNNH 

? 3,6,1 
B>A>C 

READY 

RUNNH 
? 2,9,21 
C>B>A 

READY 



The use of the line feed and tab characters greatly improves the 
legibility of complex program statements such as line 20 above. 

9.6 CONDITIONAL TERMINATION OF FOR LOOPS 

In the simple FOR-NEXT loop described in section 3.6.1, the 
format of the FOR statement is given as: 

line number FOR<variab le>=<expression>TO<expression'>\S'IE'P<expression>r 

There are many situations in which the final value of the loop variable 
is not known in advance and what is really desired is to execute the 
loop as many times as necessary to satisfy some condition. In evaluat- 
ing a function, for example, this condition might be the point at 
which further iterations contribute no further accuracy to the result. 
BASIC-Plus provides a convenient way of specifying that a loop is to 
be executed until a certain condition is detected or while some 
condition is true. These statements take the forms: 
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t-lne number FO'R<variab le>=<expx'ession>pTEP<expression^>^/ftil'LE<aondi tion> 
and 

line number FO'R<variab le>=<expression^T:EP<expressionMjliTlL<aondition> 

The condition has the same structure as specified in an IF statement 
{see section 3.5) and can be just as elaborate, if necessary. Before 
the loop is executed and at each loop iteration the condition is tested. 
The iteration proceeds if the result is true (FOR-WHILE) or false 
(FOR- UNTIL) . 

The difference between a FOR loop specified with a WHILE or UNTIL 
and one specified with a terminal value for the loop variable is worth 
noting, in order to avoid potential pitfalls in the usage of each. 
Consider first the two loops below: 

10 FOR I = 1 TO l)2f 

11 PRINT I; 

12 NEXT I 

and 

2j2f FOR 1 = 1 UNTIL I>10 

21 PRINT I; 

22 NEXT I 

Each of these loops prints the numbers from 1 to 10 . When the loop at 
line 10 is done, however, the loop variable is set to the last value 
used (that is, 10). In the second loop beginning at line 20, the loop 
variable is set to the value which caused the loop to be terminated 
(that is, 11) . 

Next consider the two loops following: 



lj2f X=1J2( 

20 FOR 1=1 TO X 

30 X=X/2 

40 PRINT I,X 

50 NEXT I 

100 X=10 

110 FOR 1=1 UNTIL I>X 

120 X=X/2 

130 PRINT I,X 

140 NEXT I 

(Cont. next page) 
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RUNNH 

1 5 

2 2.5 

3 1.25 

4 .625 

5 .3125 

6 .15625 

7 .p78125 

8 .p390625 

9 .^1953125 

10 .9765625E-2 

1 5 

2 2.5 

READY 

In the case of the loop beginning with line 20, the iteration stops 
when I exceeds the initial value of X (that is, 10). Even though 
the value of X changes within the loop, the initial value of X 
determines the performance of the loop. In the second loop, the 
current value of X determines when the iteration ceases. Thus, after 
three iterations, I is greater than X in the second loop and the loop 
is terminated. (The STEP value when omitted, is still assumed to be 
1.) 

These forms of loop control are particularly useful in iterative 
applications where data generated during the loop execution determines 
loop completion. 

Consider the problem of scanning a table of values until two 
successive elements are both 0, or the end of the table is reached. 

1J2( FOR 1 = 1 UNTIL I=N OR X(I)=J3f AND X(I+l)=pf 
2jl NEXT I 

9.7 STATEMENT MODIFIERS 

To increase the flexibility and ease of expression within 
BASIC-Plus, five statement modifiers are available (IF, UNLESS, FOR, 
WHILE, and UNTIL) . These modifiers are appended to program state- 
ments to indicate conditional execution of the statements or the 
creation of implied FOR loops . 

9.7.1 The IF Statement Modifier 
The form: 

<statement>lF<<3ond-it-ion> 
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is analogous to the form: 

lF<oondition>THEN<statement> 
For example: 

Iji PRINT X IF XofS 
is the same as: 

1(? IF XOJ? THEN PRINT X 

The statement is executed only if the condition is true . 

When a statement modifier appears to the right of an IF-THEN 
statement, then the modifier operates only on the THEN clause or the 
ELSE clause, depending on its placement to the left or right of 
ELSE . For example: 

lj2(pf IF 1=1 THEN PRINT "HELLO" ELSE PRINT "BYE" IF 1=1? 

will print 

HELLO 

since the test 1=1 is true. The modifier IF 1=0 is false, but as 
it applies only to the ELSE clause, it is never tested. 

It is not possible to include an ELSE clause when using the 
modifier form of IF . 

Several modifiers may be used within the same statement. For 
example: 

IfSji PRINT X(I,J) IF I=J IF X(I,J)<>)? 

which will print the value of X(I,J) only if the value of (I, J) is 
non-zero and if I equals J. Whenever there is more than one modifier 
on a line, the modifiers are executed in a right- to-left order. That 
is, the rightmost one is executed first, and the leftmost one is 
executed last. This situation is described by the term "nested 
modifiers" . 
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An additional operational advantage of this interpretation of 
IF modifiers is illustrated in the discussion of FOR modifiers below. 

9.7.2 The UNLESS Statement Modifier 
The form: 

<statement> UNLESS <aonditlon> 

causes the statement to be executed only if the condition is false. 
For example, the following statements are all equivalent: 

lJ3f PRINT A UNLESS A=j2f 

l)2f PRINT A IF NOT A=J2( 

1J3I IF NOT A=)3' THEN PRINT A 

lj2f IF A<>)2f THEN PRINT A 

This particular form simplifies the negation of a logical condition. 

9.7.3 The FOR Statement Modifier 
The form: 

<statement> FOR <variable>=<formula>TO <formula> STEP <formula> 

can be used to imply a FOR loop on a single line. For example: 

1)? PRINT I, SQR(I) FOR 1 = 1 TO 1)? 

This statement is equivalent to the following FOR-NEXT loop: 

lJ3f FOR I = 1 TO 10 

11 PRINT I, SQRd) 

12 NEXT I 

In cases where the FOR-NEXT loop is extremely simple, the necessity 
for both a FOR and a NEXT statement is eliminated. Notice that this 
implied FOR loop will only modify (and hence execute iteratively) 
one statement in the program. Any number of implied FOR loops can be 
used in a single program. 

As is the case with all modifiers, a FOR modifier in an IF 
statement will operate only on the THEN or ELSE clause with which it 
is associated, and never on the conditional expression to the left of 
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the THEN. Thus, if it was desired to print all non-zero values in a 
matrix X, dimensioned to be 100 elements long, the following program: 

Ijaf DIM X(1J?J?) 

15 READ X(I) FOR 1=1 TO IfSfl 

2(? IF X(I)<>jai THEN PRINT I,X{I) FOR 1=1 TO ljaf0 

will not operate properly, since the implied FOR loop at line 20 
applies only to the THEN PRINT... part of the statement, and not to 
the IF... part. Thus, the first value of X tested is X(IOO), since 
I remained at 100 from statement 15. To achieve the desired effect, 
it is only necessary to state line 20, not as an IF statement, but 
rather as a PRINT statement with nested modifiers; for example: 

2111 PRINT I,X(I) IF X(I)<>J2( FOR 1=1 TO ipfj? 

when expressed in the latter form, the nested modifier rule takes 
effect, and all values of X(I) are tested and printed as appropriate. 

9.7.4 The WHILE Statement Modifier 
The form: 

<statement> WHILE <aondition> 

is used to repeatedly execute the statement while the specified con- 
dition is true . For example: 

Ij? LET X=Xf2 WHILE X'r2<lE6 

is equivalent to: 

10 LET X=Xt2 

11 IF X<1E6 THEN 1JZ( 

The WHILE modifier (and the UNTIL modifier below) will operate usefully 
only in iterative loops where the logical loop structure modifies the 
values which determine loop termination. This is a significant 
departure from FOR loops, in which the control variable is automati- 
cally iterated; a WHILE statement need not have a formal control 
variable. The following statements will never terminate properly; 
such programs are sometimes called "infinite loops": 

10 X=X+I WHILE l<10fl0 

20 PRINT I, A(I) WHILE A(1)<>0 
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In both cases, the program fails to alter the values which are used to 
determine when the loop is done. 

Successful applications of the WHILE modifier include the follow- 
ing: 

5 ITEST OF SQUARE ROOT ROUTINE 
10 X=X+1 WHILE X=SQR(X+2) 
20 PRINT X 

9.7.5 The UNTIL Statement Modifier 
The form : 

<statement> UNTIL <aondition> 

is used to repeatedly execute the statement until the statement be- 
comes true; which is to say, while the statement is false. For example: 

lj3 X=X+1 UNTIL X<>SQR(X + 2) 

is the same as 

10 X=X+1 

20 IF X=SQR(X+2) THEN 10 

9.7.6 Multiple Statement Modifiers 

More than one modifier can be used in a single statement. Multiple 
modifiers are processed from right to left. For example: 

10 LET A=B IF A>0 IF B>0 

which is equivalent to: 

10 IF B>0 THEN IF A>0 THEN A=B 

or 

10 IF B>0 AND A>0 THEN LET A=B 



or 



10 IF B=0 THEN 40 
20 IF A=0 
30 LET A=B 



9-16 



A two dimensional matrix (m by n) can be read a row at a time as 
follows: 

75 READ A (I, J) FOR J=l TO M FOR 1=1 TO N 
which is equivalent to: 

75 MAT READ A{M,N) 

and to: 

1)3 FOR 1=1 TO M 

2J2( FOR J=l TO N 

3i2( READ A{I,J) 

ifl NEXT J 

5J3f NEXT I 

Also see section 9.8.3, interaction of FOR and IF. 

9 . 8 ADDITIONAL PRINT STATEMENT FEATURES 

9.8.1 PRINT-USING Statement 

If elaborate formatting is required for an output operation, the 
PRINT-USING statement is available. The statement is of the form: 

line number 'PRlNT-j#<expression>AuSl'iiG<string>,<list> 

If the expression is omitted, the output is assumed to be directed 
to the terminal . The string can be either a string constant or a 
string variable and is interpreted as an exact image of the line to 
be printed, using the following notation: 

a. An exclamation point (I) identifies a one character string 
field. The string is specified in the <list> part of the 
PRINT statement. For example: 

10 PRINT USING '•:::", "ab","cd","ef" 

causes 

ACE 

to be printed. The first character from each of the 
ytfirst three string constants or variables is printed. 
Any other characters beyond the first are ignored. 

b. A character string field of two or more characters is 
indicated by spaces enclosed between backslashefl. The 
backslash character is produced by typing SHIFT/L on 
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the keyboard. If zero spaces are enclosed, a field two 
columns wide is assumed, one space indicates a field 
three columns wide, etc. For example: 

20 PRINT USING "\\\ \" , "ABCD" , "EFGHI" 

causes: 

ABEFGH 

to be printed. The first two backslashes have no spaces 
enclosed, hence permit the printing of two characters (AB) 
The second two backslashes enclose two spaces and hence 
permit the printing of four characters (EFGH) . Notice 
that no spaces are printed unless they are specifically 
planned. 

Numeric fields are indicated with the # character. Any 
decimal point position can be specified and rounding is 
performed as necessary (not truncation) . For example: 

IJ? PRINT USING "###.##", 12.345 
will cause: 

12.34 
to be printed, while: 

lJ2f PRINT USING "####.", 12.345 
causes : 

12. 

to be printed. Numeric fields are right justified; that 
is, if a number does not fill the allotted spaces lead- 
ing blanks precede the number. Where the field specified 
is too small for a constant or variable to be printed, 
the * character is used to fill the field. For example: 

10 PRINT USING "##", 100 

causes: 

** 

to be printed. 

When the exponential form of a number is desired, the 
numeric field is followed by the string ++++ (four + 
characters) . This suffix allocates space in the 
line for E ±xx. Any arrangement of decimal points 
is possible. For example: 

5 F$="##+++f ###### ## #" 

10 A=1E4 

20 PRINT USING F$,A, A, A, A 

prints the following: 

lE+04 10000 ** * 
Thus , in order to print the line : 

A=1.23 B=2.45 

where A=l. 23111 and 3=2.45457, format control can be 
used as in the following line: 

10 LET F$="A=##.## B=##.##" 
20 PRINT USING F$, A,B 
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e. Notice that when the PRINT-USING statement is used, 
the usual PRINT statement punctuation characters 
(commas and semicolons) have no effect. 

The PRINT USING Statement is generally employed where a large 
amount of data is to be formatted for output in a particularly uniform 
manner. 

9.8.2 PRINT Functions 

In order to aid in formatting simple and complex PRINT statements, 
the following functions are provided: 

Function Meaning 

POS (n) Returns the current position of the print head 

(imaginary for disk files) where n is the I/O 
channel number. POS (pf) returns the value for 
the user's terminal. 

TAB(x) Tab to position x in the print record. For 

example, the Teletype paper has 72 printable 
columns. TAB (4) causes a movement of the 
print head to column 4 regardless of whether 
the print head is currently before or after 
print position 4. (If currently past position 
4, position 4 of the next line will be selected. 

CHR$ (x) Output the single ASCII character corresponding 

to the number x. 

For example: 

li? PRINT "X";TAB(li2l) ;CHR$(65) 

causes the following to be printed: 

^^-T \ 

position 1 I position l)2f 
8 spaces 

Other character string functions for use with the PRINT 
statement (or any other statement) are described in the section on 
Character String Functions, section 5.5. 
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9.9 INPUT LINE STATEMENT 

The INPUT LINE statement causes the input of a string of charac- 
ters (either from a specified file or the terminal) from the beginning 
of one line up to the LINE FEED character to be read into the string 
variable specified. The statement is of the form: 

line number INPUT LlNE^%<expression>J(<string Variable> 

Where the input is to be from the Teletype no expression is used to 
indicate the source of the input. For example: 

75 INPUT LINE A$ 

causes the system to pause while the user types a line of input (on 
the terminal up to 72 characters) followed by the RETURN key. The 
RETURN key generates a carriage return/line feed, which is appended 
to the other data typed by the user. Thus, every character typed 
(including such characters as space and quote) is passed to the 
program, which can analyze the data using the normal string manipula- 
tion functions. This is different from the normal mode of inputting 
strings, since ",', and <space> are normally disregarded, although 
not here. For example: 

IJZf INPUT LINE A$: PRINT "LINE:" A$ ; 

2)3 INPUT A$: PRINT "STRING:"; A$ 

3j? GOTO 10 

? ABCD 

LINE:ABCD 

? ABCD 

STRING: ABCD 

? A B C D 

LINE: ABCD 

? A B C D 

STRING: ABCD 

?"ABCD" 

LINE: "ABCD" 

? "ABCD" 

STRING: ABCD 

iC 

READY 

90 OPEN "DTA4: DATA" FOR INPUT AS FILE 4 
95 INPUT LINE #4, B$ 

causes the input of a line of data from the file DATA on DECtape unit 
4 through I/O channel 4. 



9-20 



9.10 SYSTEM FUNCTIONS 

RSTS-11 has several system functions which allow the user to 
obtain certain information about or perform operations with the 
system. The functions are described in Table 9.2 

Table 9.2 
SYSTEM FUNCTIONS 



Function 



Meaning 



Sample Usage 



DATE$(i2() returns the current day, month, 

2-MAR-71 -in>)?^ 

DATE$(N) returns a character string 
corresponding to the Julian 
date N+70,000 

DATE$(1) = "J2fl-JAN-7J?" 
DATE$(240) = "05-MAY-7J2f" 

TIME$(p() returns the current time of 
day as a character string as 
follows : 

TIME$(^) = "915:30 PM" 

TIME$ (N) returns a string corresponding 
to the time at N minutes before 
midnight, for example: 
TIME$(1) = "11:59 PM" 
TIME$(1440) = "12:J?j3f AM" 
TIME$(721) = "11:59 AM" 

TIME (0) returns the clock time in 
seconds since midnight. 



lJ2f PRINT DATE$(;2') 



155 PRINT X% CD ,DATE$CI) 



75 IF TIME$(J2() >"05:45 PM" 
PRINT "TIME" TO QUIT" 



10 PRINT #4,TIME${I) ,1 



10 IF TIME(!2f)>43200 

THEN PRINT "AFTERNOON" 



TIME(l) returns the central processor 
(CPU) time used for this job 
in ^.1 second quanta. 



10 IF TIME(1)>3J2I 
THEN STOP 



TIME (2) returns the connect time (time 
during which the user has been 
logged into the system) for this 
job in minutes. 



10 IF TIME (2) >18J3f0 
THEN STOP 



SLEEP (X) this function is used as a state- 75 
ment and causes the currently 
running program to be dismissed 
until either X seconds have elapsed 
or a line is typed at the user's 
terminal, whichever comes first. 
No error is generated if input 
is not received. 



SLEEP {10) 
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Table 9.2 (Cont.) 



Function Meaning 

WAIT(X) this function is used as a 
statement and has no 
immediate effect. Failure 
to supply input on a termi- 
nal within X seconds after 
an INPUT statement is 
executed will result in 
the generation of error con- 
dition #15. 



Sample Usage 

4J2) ON ERROR GOTO IfSjS 

45 WAIT ( 15 y 

5J? INPUT "ANSWER" ;X 

• • • 

Ijafj? IF ERR=15 THEN RESUME 



VIAIT if!) causes the system to wait as 

long as necessary for input 
from the terminal. 



7J? WAIT (J?) 
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CHAPTER 10 
BASIC-PLUS INPUT AND OUTPUT OPERATIONS 



10.1 READ AND DATA STATEMENTS 

A READ Statement is used to assign to a list of variables values 
obtained from a data pool composed of one or more DATA statements. 
The two statements are of the form: 

line number READ <list of variables> 
line number DATA <list of values> 

The list of variables can include floating point, integer, sub- 
scripted, or character string variables. The list of values must 
correspond in type with the variables to which the value will be 
assigned (the exception is that integer and floating point values 
are interchangeable, although they are stored according to the type 
of the variable) . 

The data pool consists of all DATA statements in a program. 
Values are read starting with the DATA statement having the lowest 
line number and continuing to the next lowest, etc. The location of 
DATA statements in a program is irrelevant, although for simplicity 
they are usually kept toward the end of the program. (The DATA 
statements must occur in the proper numeric sequence, however.) A 
DATA statement must be the only statement on a line, although a READ 
statement can occur anywhere on a line. 

If a READ statement is out of data, an error message is printed 
and program execution is terminated. (This error can be treated 
through the ON ERROR GOTO statement, section 9.4.) 

Quotes are necessary in DATA statements only around string items 
which contain a comma or where embedded blanks within the string are 
significant. 

Matrices are read from DATA statements via the MAT READ statement 
of the form: 

line number MAT READ <list of matrioes> 
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This reads the value of each element of a predimensioned matrix from 
the data pool. Each element in the list of matrices indicates the 
maximiim dimension of the matrix to be read (which cannot be greater 
than the dimensioned size of the matrix) . Individual elements are 
separated by commas . For example : 

l)2f DIM A(2J?,2^) , B(5ja() 
2^ MAT READ A, B(35) 

The above lines read values for the 20 x 20 matrix A and 35 out of 
the possible 50 values for the B matrix (remaining elements are zero) . 
Data is read in row by row; that is, the second subscript varies most 
rapidly. 

10.2 RESTORE STATEMENT 

The RESTORE Statement reinitializes the data pool of the program's 
DATA statements. This makes it possible to recycle through the DATA 
statements beginning with the lowest numbered DATA statement. The 
RESTORE statement is of the form: 

line number RESTORE 

For example: 

85 RESTORE 

causes the next READ statement following line 85 to begin reading data 
from the first DATA statement in the program, regardless of where the 
last data value was found. See section 3.9 for an example program 
using the RESTORE statement. 

The RESTORE statement can be placed in any position on a multiple 
statement line. 

10.3 INPUT STATEMENT 

The INPUT statement allows data to be entered to a running 
program from an external device, the user's keyboard, disk, DECtape, 
paper tape reader, etc. The full form for this statement is: 

line number INPUT ^#<expressiow>j'f <uariaii Ze list> 
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In many cases the simpler form: 

line number INPUT <variahZe list> 

is used. This last form causes a ? to be printed at the terminal and 
the system then waits for the user to respond with the appropriate 
values. If sufficient values are not typed, the system prints 
another ?; if too many values are typed, excess values are ignored. 
This last form also allows the user to intersperse strings to be 
printed between the variables to be input. For example: 

Ij? INPUT "YOUR NAME IS";N$, "AGE"; A 

when executed would allow the following interaction at the terminal 
(the underlined characters are typed by the user) : 

YOUR NAME IS? JEAN 
AGE? 22 

The format: 

line number INPUT if<expre8sion> y <variable list> 

causes input to be read from the file or device indicated in the 
expression by the number it was given when it was opened. (See 
section 7.2 or 10.5 for a description of the OPEN statement.) If 
the value of the expression is non-zero and the specified file is 
open as using the Teletype as an input device, then no ? character 
is printed at the terminal when input is requested. For example: 

75 OPEN "TTY:" FOR INPUT AS FILE 2 
SJJ INPUT #2, A 

The system then pauses while the user types a numeric value for the 
variable A, although no prompting ? or character string message is or 
can be printed on the terminal. 

Another format of the INPUT statement allows for the entering of 
an entire line of data as a single character string entity, regardless 
of embedded spaces or punctuation. This format is: 

line number INPUT 'Ll^'E\%<expression>Jf<string variable> 
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For example: 

25 INPUT LINE A$ 

would pause and allow the user to enter characters on the terminal 
keyboard. The end of the line being input is the carriage return/ 
line feed sequence. As another example: 

2j2( OPEN "DSK:F2" FOR INPUT AS FILE 7 
25 INPUT LINE #7, B$ 

These lines cause the system to open a file F2 on the system disk on 
channel 7 (of 12 possible channels) to input a line of characters 
up to the next LINE FEED character. (See Table 7-1 for the size 
of buffers available for each device.) 

The MAT INPUT statement is used to input the values of a pre- 
dimensioned matrix from a specified input device. Where no particular 
device is specified, the input is accepted from the user terminal. 
For example: 

2J2(0 MAT INPUT A(2)J) 

causes 20 floating point values to be accepted as elements of the 
matrix A. A statement of the form: 

line number MAT INPUT \^<exppession>J<variabte list> 

causes the input to be read from a file or device indicated by the 
expression and previously opened. 

45 DIM B(ip,25) 

5J2f OPEN "DTA2:DTA1" FOR INPUT AS FILE 1 

55 MAT INPUT #1, B(lj2f,25) 

The above lines cause the file DATAl on DECtape 2 to be open for 
input on channel 1 (of 12 possible channels) and a matrix of values 
for the elements of B to be read to fill B(10,25). The zero 
elements are not assigned a value. Where input is from the user 
terminal a ? is printed; however, reference to another device does 
not cause the printing of the prompting character. Depending upon 
the name of the matrix, the MAT INPUT statement allows input of 
floating point, integer, or character string values. 
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10.4 PRINT STATEMENT 

In its simplest form, the PRINT statement looks as follows: 

line number PRINT 

This causes a carriage return/line feed to be performed on. the user 
terminal . The format : 

line number PRINT <l-Lst> 

causes the printing of the elements in the list on the user terminal. 
An element in the list can be any legal expression; where an element 
is not a simple variable or constant, it is evaluated before a final 
value is printed. The list can also contain a character string between 
quotes which will be printed exactly as it appears. 

NOTE 

If a character string is enclosed in a PRINT state- 
ment with an initial quote and no terminating quote, 
the terminating quote is considered to be the end 
of that PRINT statement. For example: 

10 PRINT "NAME IS A$ 
1J2 PRINT "NAME IS A$" 
2)? PRINT "NAME IS" A$ 

Line 1^ is shown in two equivalent forms. Line 20 
is the correct form to generate the printed line: 

NAME IS JOHN DOE 

where A$ = "JOHN DOE". 

Elements in the list are separated by commas or semicolons. For 
excimple : 

10 A=l: B=2: C=3 

15 PRINT A; A+B+C , C-A, "END" 

when executed, will cause the following line to be printed: 

16 2 END 

A terminal line is considered to be divided into five print zones 
of fourteen spaces each, use of these zones involves the 
comma character which causes the print head to move to the next 
available print zone (from 1 to 14 spaces away) . If the fifth print 
zone on a line is filled, the print head moves to the first print 
zone on the next line. 
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The semicolon character functions as follows : 

a. if a variable, function, or expression is followed by 
a semicolon, the value is printed with a preceding 
minus sign if the number is negative, or a space if 
it is positive. The number is then followed by a 
single space. 

b. formatted character strings (explained later) followed 
by a semicolon, are printed with no preceding or 
trailing spaces, except as explained in (a) above. 

Any PRINT statement which does not end with a semicolon or comma 
character causes a skip to the next line after printing the elements 
in the list. The presence of the punctuation character causes the 
next PRINT statement to continue on the same line under the conditions 
already defined. 

In general, the output rules for the PRINT statement include: 

a. suppression of leading and trailing zeros to the right 

of a decimal point. Where a number is an integer, print- 
ing of the decimal point is also suppressed. 

b. at most seven significant digits are printed. 

c. most numbers are printed in decimal format unless the 
user indicates otherwise. Numbers too large or too 
small to be printed in decimal format are printed in 
exponential format. 

d. character string constants are printed without leading 
or trailing spaces. 

e. extra commas cause print zones to be skipped. 

f. semicolons separating character string constants from 
other list items are optional; if used, their 
significance is as already defined; if not used, no 
extra spaces separate the character string from the 
value to be printed. 

Output can be directed to a device other than the Teletype with 
the following command: 

ttne number PRINT ^<expresston> ,<list> 

Where the expression is the number of a previously opened output file, 
out of the 12 possible opened files (see section 10.5). For example: 

1^ OPEN "PTP:" FOR OUTPUT AS FILE 3 
50 PRINT #3, B, D, A+7, FNX(B) 
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causes four values to be punched onto paper tape by the high speed 
punch which is opened for output as file 3 out of the possible 12 
files. 

In order to perform formatted output, the following statement is 
used: 

line number PRINT ^<ex-gre8sion> , USING <stving> ^ <li8t> 

where the expression (which is optional) indicates the file or device 
which is the destination of the output; the string is either a string 
constant or a string variable which is an exact image of the line to 
be printed; and the list is a list of items to be printed. The 
string constant is constructed according to the following rules: 

a. an exclamation point identifies a one character string 
field. The string is specified in the list within the 
PRINT statement. For example: 

1)3 PRINT USING ":::", "ab", "cd", "de" 

which causes : 

ACE 
to be printed at the user's terminal. 

b. a variable string field of two or more characters is 
indicated by spaces enclosed between backslashes. 
The backslash character (\) is produced by typing 
SHIFT/L on the keyboard. Enclosing no spaces indicates 
a field two columns wide, one space is equivalent to 
three columns wide, etc. 

2^ PRINT USING " \\\ \" , "ABCD" , "EFGHI" 
causes 

ABEFGH 
to be printed at the user's terminal. 

c. numeric fields are indicated with the # character. 
Any decimal point arrangement can be specified, 
rounding is performed as necessary. For example: 

3j2f PRINT USING "###.##", 12.345 
causes 

12.36 
to be printed on the user's terminal 

4^ PRINT USING "####", 12.345 
5^ PRINT USING "####.", 12.345 
6^ PRINT USING "##", ipfj? 
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cause 

12 

12. 

** 

to be printed on the user's terminal. 

d. when the exponential form of a number is desired, the 
numeric field is followed by the string ++++ which 
allocates space for E+J?0. Again, any arrangement of 
decimal points is permitted. For example: 

5 F$= "##+++f ###### ## #" 

iji A=ijarj?ja(pr. 

2^ PRINT USING F$, A, A, A, A 
causes 

1E+J2(4 lJ2(jafJ2fJ? ** * 

to be printed at the user's terminal. 

As another example : 

5 LET A=l. 32111: B=2. 45457 

10 LET F$= " A=##.## B=##.##" 

2)3 OPEN "LPT:" FOR OUTPUT AS FILE 4 

30 PRINT #4, USING F$, A,B 

would cause: 

A= 1.32 B= 2.45 

to be printed on the line printer. Notice that when the PRINT USING 
statement is used, commas and semicolons have no effect on the output 
formatting. 

The MAT PRINT statement allows for easy printing of a predimen- 
sioned matrix or matrices. The statement is of the form: 

tine number MAT PRINT §<list of matviaes> , 

For example: 

15 DIMA(16), B8(5,10) ;C%(32) ,E1(32) 

25 MAT PRINT A(15), B$(3,7), C%(32), El 

If the elements of the list of matrices are the unsubscripted names 
of the matrices, the entire matrix is printed. If the elements are 
subscripted, then the subscript indicates the maximum size of the 
matrix to be printed. 
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The matrix name can be followed by a semicolon to indicate that 
the values are to be printed in a packed fashion, or by a comma to 
indicate that each element is printed in its own zone. For example: 

5 DIM A(10,10) ,B(l^,2J2f) 
12)3 MAT PRINT A: IMATRIX A IS PRINTED IN PACKED FORMAT 

130 MAT PRINT B(10,lj2() llfS*10 MATRIX PRINTED, 5 VALUES PER 

: LINE 

Row and column matrices can also be printed. For example: 

5 DIM A(5) , B(10) 
5J2f MAT PRINT A; 
60 MAT PRINT B 



Line 50 causes A to be printed as a row matrix, closely packed; line 
60 causes B to be printed as a column matrix. The form: 

70 MAT PRINT A, 

would cause the matrix A to be printed as a row matrix, five values 
per line. 

10.5 OPEN STATEMENT 

The OPEN statement has two formats : 

flNPUT 1 
line number OPEN <stp%ng> FOR oumpnT '' ^^ FILE<ea;press^on> 

line number OPEN <string> AS FILE <expression> 

The first form is used to open files for input or output of variables 
through use of INPUT and PRINT statements. The second form is 
generally used to open files for input and output of virtual core 
matrices through the MAT INPUT and MAT PRINT statements. 

The string in the OPEN statement is either a character string 
constant or variable and represents the device on which a file is 
to be opened. In the case of a disk or DECtape file, the name of the 
file is also indicated. The various device names are as follows: 
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^*'' UST.T system disk 

^^'- ^iSfCf: to^JiftHl: DECtape units to 7 

PC .' j' TRr high-speed paper tape reader 

fP; ■ PTP 'T high-speed paper tape punch 

UP". LPTr line printer 

<i2 ; CDR ; card reader 

MSR: mark sense card reader 

iC^;, I ijimilfy user terminal 

u^\n\ ^T^JJi • terminal n within the system 

$ system library 

Examples of acceptable character strings are shown below: 

"DSK:FOO" specifies the file FOO on the system disk 

"DTA4:MMM: specifies the file MMM on DECtape unit 4 

"PTP:" specifies the high-speed punch 

"FTP: FOO" specifies the high-speed punch, FOO is 

ignored 

"FOO" specifies the file FOO on the system disk, 

equivalent to DSK:FOO (disk is the default 
storage device) 

"DSK:FOO.TMP" specifies the file FOO on the system disk 

with the extension. TMP 

The expression in the OPEN statement is the internal file 
designator, an integer number (constant or variable) between 1 and 
12. Internal file designator j? is always open and is equivalent to 
referencing the user's terminal. 

For example: 

1/? OPEN "PTP:" FOR OUTPUT AS FILE 3 
11 PRINT #3, "BEGINNING OF DATA FILE" 

The above sequence opens the high-speed punch for output on internal 
file designator 3 which is then used in a PRINT statement to cause 
BEGINNING OF DATA FILE to be punched in ASCII code on the paper tape. 
The paper tape punch can only be opened for output, a message is 
printed if an attempt is made to open that device for input. 

1)3 LET 1$ = "LPT:" : E=l 

11 OPEN 1$ FOR OUTPUT AS FILE E 

12 PRINT #E, A,SQR(A) FOR A=l TO l|2f 
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The above sequence uses variable names in the OPEN statement rather 
than constants and causes a table to be printed on the line printer. 

IJ? OPEN "DTA2:REM.DTA" FOR INPUT AS FILE 1 
11 INPUT #1, A, D4, B$, C% 

The above sequence opens the file REM with the extension .DAT for 
input on internal file designator 1 and then accepts as input four 
values. 

When input is accepted from the user terminal, a ? is printed 
prior to the acceptance of data input by the system. In order to 
request input without the prompting character (which is frequently 
useful as a grammatical device), the user terminal (TTY:) can be 
opened on some internal file designation other than 0. (The ? is 
only generated for input requests on internal file %0.) For example: 

1(2( OPEN "TTY:" AS FILE 1 

11 PRINT "TYPE YOUR NAME" 

12 INPUT #1, A$ 

results in the following sequence: 

TYPE YOUR NAME 
JOHN DOE 

When using the 

line number OPEN <string> AS FILE <expre88ion> 

form, a normal data file can be opened for input and output or, more 
often, the statement is used to indicate the presence of a virtual 
data matrix on the system disk. This virtual data storage facility 
allows the user to individually address and update elements within a 
disk file in a random (non-sequential) manner and allows the user to 
address more data storage area than is available in core at the 
installation. The OPEN statement is used -#»ii©w*ftg' a DIM statement 
defining the virtual data matrix. The DIM statement is of the form: 



line number DIM ^<expresaion>,<list> 



For example: 



1)2 OPEN "DATAl" AS FILE #1 

11 DIM #1, M1^0?,12^9), B$(l/afj2fJ?) , C%(500) 
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The OPEN statement gives the name of the file as DATAl on the system 
disk. (only the disk can be used for virtual core storage) . The 
internal file number associated with that particular disk file is 1. 
The matrices A, B$, and C% are then defined as virtual matrices 
referenced through internal file designator 1. 

Floating point numbers, integers, and strings can all reside in 
virtual core matrices. More than one matrix can be specified in one 
virtual core file, as shown above. 

String matrices, which is to say string variables, are handled 
slightly differently in virtual storage than when stored in core. 
In core matrices are of variable length from j? to any arbitrary 
length. Strings in virtual core are of fixed length. All elements 
of a given matrix have the same length (even though all or part of any 
number of elements can be blank) . 

The length of virtual core matrices, then, varies from 1 charac- 
ter to 512 characters. Although any length can be specified, the 
system forces lengths to be a power of two. That is, the actual length 
of a string matrix element in virtual core is one of the following: 

1, 2, 4, 8, 16, 32, 64, 128, 256, 512 

When the user indicates a value other than one of the above, the next 
higher value is automatically assigned. For example: 

10 DIM #1, X${1J?) = 65 
1J2( DIM #1, X$(1J?) = 128 

the two lines above are exactly the same in function. The length 
is specified in the DIM statement, as shown above. For example: 

15 DIM #1, A$(1J?J2() = 32, B$(lj2lj2() = 4, C${l^fl) = 16 

defines three virtual core matrices which can later be referenced in 
a program where 

A$ consists of 101 strings of 32 characters each; 
B$ consists of 101 strings of 4 characters each; 
C$ consists of 101 strings of 16 characters each. 
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PM ^Aimj^ mcs\iuu* n^i, <«Ty**i'»t^ft* ah Hit i-ile . 

In order for the user to reference any element in a virtual core 
matrix, the matrix must be defined and associated with some internal 
file designator, as follows: 

IjH OPEN "FOO" AS FILE 1 

11 DIM #1, A(10!i0) , B(l^j2(), C${5^^)=256 

MAT INPUT and MAT PRINT Statements as well as a statement of the form: / ^dT 

255 INPUT #1, A(255) U?lv3/y ^J-jiL 

can then be used referencing the predefined matrices. Any element in 
virtual core can be addressed independently of the remaining elements 
of that matrix. 

In general, the action of the two different types of OPEN state- 
ment can be summarized as follows: 

20 OPEN "FOO" FOR INPUT AS FILE 1 
3J2I OPEN "FEE" FOR OUTPUT AS FILE 2 

In the above statements, if a file being opened for input does not 
exist, an error message is returned. If a file being opened for 
output does not exist, it is created. If a file for output already 
exists and is not write-protected, it is deleted and recreated. 

40 OPEN "FII" AS FILE 3 

If FII already exists as a file (on the system disk, in this case) , 
then the existing file is used; if there is no file names FII, one is 
created. (Other devices than the system disk can be specified for 
this format. However, virtual core matrices can only be referenced 
on system disk files. Other devices can be referenced for I/O under 
the rules scecified.) 
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10.6 CLOSE STATEMENT 



The CLOSE statement is used to terminate I/O to or from a 
device, removing the internal file designation. Once a file has 
been closed, it can be reopened at any time for I/O on any internal 
file designator. All files are automatically closed at the end of 
program execution. The format of the CLOSE statement is as follows: 
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line number CLOSE <expx'ession> 

where the expression is the internal file designator. More than one 
file can be closed with one CLOSE statement. Closing a file before 
the end of program execution has the advantage of freeing more core 
storage space to open other files. An example of the CLOSE statement 
follows: 



25 CLOSE 4 
3j2f CLOSE 1, 
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PART III 



USING RSTS-11 



This section deals with the interaction between the user 
and the RSTS-11 terminal, how to enter and edit user programs, 
and how to give commands to BASIC-Plus. 

Clearly, the listing, running, saving, or compiling of 
a program differ in kind from the individual statements com- 
posing the program. System commands perform this type of 
operation. Other operations include assigning of peripheral 
devices for program input and/or output, the determining of 
the length of the current program or number of user files 
available, renaming and replacing of current files, and the 
enabling and disabling of the echo feature on the RSTS-11 
terminal. 

A system command can be given at any point after the 
system has printed READY and before the user issues a RUN 
command . 



CHAPTER 11 



BASIC-PLUS SYSTEM COMMANDS 



11.1 ON-LINE WITH BASIC-PLUS 

11.1.1 Project-Programmer Numbers and Passwords 

Before the user attempts to use the RSTS-11 system, the system 
manager or an instructor will assign him both a unique project- 
programmer number and a password. The project -programmer number 
might, for example, look as follows: 

100,101 

The number 100 above is the project number (possibly held by a group 
of people having a common interest) ; and the number 101 above is the 
programmer number (held by only one person within the project group) . 
Thus, each individual's project-programmer number is different. 
This allows the assignment of protection codes to user files for 
various relationships among users (see section 7.7 describing the 
NAME-AS Statement) . 

The user is also assigned a password. This password is an 
alphanumeric code particularly assigned to an individual user. This 
password is never printed on the terminal and, hence, allows for a 
measure of security in limiting the use of the computer system. 

11.1.2 HELLO command 

Equipped with the codes to obtain access to the system, the user 
should find a terminal and turn the LINE -OFF-LOCAL knob to LINE. This 
puts the terminal on-line to RSTS-11, that is, opens a line of 
communication between the computer and the terminal. 

Once the terminal is on-line, type the word: 

HELLO 

followed by the RETURN key. This tells RSTS-11 that a user wishes to 
join the system. RSTS-11 will print a number sign (#) at the left 
margin of the paper and wait for the user to type his project- 
programmer number and the RETURN key. The system responds by printing: 
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PASSWORD: 

and waiting for the user to type his password followed by the RETURN 
key. These characters are not printed at the console. If the codes 
are acceptable to the system, the message: 

RSTS VJ2(1A -JOB 01 TTYJ? 12-MAY-71 12 : 3(2( PM 
MESSAGES OF THE DAY ARE: 

is printed. If the codes are incorrect, the error message "INVALID 
ENTRY - TRY AGAIN" is printed and the user can try again. 

The entire process of entering the system would look as follows 
(although the RETURN key is typed to enter a line to the system it 
does not echo on the terminal paper except to perform a carriage 
return/line feed operation) : 

HELLO 

# 11110,101 
PASSWORD : 

RSTS Vj2flA -JOB 01 TTY0 12-MAY-71 12:30 PM 
MESSAGES OF THE DAY ARE: 
NEW OR OLD — 

Once successfully logged onto the system, the user can type "NEW" to 
create a new program, "OLD" to retrieve a program previously saved, or 
any other command in this chapter. 

11.1.3 BYE Command 

Whenever the user is ready to leave the terminal, he types the 
command : 

BYE 

followed by the RETURN key. This tells RSTS-11 that the user has re- 
quested to be dismissed from the system. RSTS-11 then removes from 
core and disk any temporary files which had been created by the system 
for the user. Any files created by the user and still remaining open 
on disk (or any I/O device) are closed and saved for the next session. 

Before leaving the terminal, the user should turn the LINE-OFF- 
LOCAL knob to OFF. (Turning the knob to LOCAL means that the terminal 
has power, but is not connected to the system. It then operates as 
a typewriter.) 
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11.2 CREATING A USER PROGRAM 

In order to create a new user program, at any time a user can 
issue the NEW command as follows: 

NEW 

followed by the RETURN key) . The system responds by printing: 

NEW PROGRAM NAME — 

to which the user responds by typing the name of the new program. 
When typing a new BASIC program, the file name extension .BAS (for 
BASIC) is added to the name by the system. 

Alternatively, the user can give the command NEW followed by the 
piTogram name, to avoxd having the system prompt the typing of the 
program name : 

NEW FOO 

is equivalent to 

NEW 

NEW FILE NAME — FOO 

When the NEW command is given, it: 

a. Deletes any program currently in core, and 

b. Causes RSTS to remember the new program name. 

NEW dta)3;foo 

is meaningless. All checking for duplicate files occurs when the SAVE 
command is given. 

Following the creation of a new file with an acceptable file 
name, the user can begin to type his program, beginning each line with 
a line number. 

The user has the option of typing the RETURN key instead of 
indicating a file name. This will cause BASIC to create a file called 
NONAME which can be referenced later as NONAME. At any time, this 
name can be changed (see sections 7.7 and 11.5.5). Only one file 
with the name NONAME can exist at any one time for a given 
user. The creation of the file NONAME is shown below Cthe 
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RETURN key, although typed, does not echo) : 

NEW 

NEW PROGRAM NAME — 

READY 

If the SAVE conimand is now given, it will create NONAME.BAS as 
a file. 

11.3 RECALLING AN OLD PROGRAM 

When the user desires to recall the source file of an old BASIC 
program (previously saved on a storage device) , he gives the OLD 
command as follows: 

OLD 

to which the system replies: 

OLD PROGRAM NAME — 

The user then types the name of the old BASIC file containing the 
program. Alternatively, the user can indicate the old file name 
without prompting, as follows: 

OLD TAXES 

which calls the old file TAXES from the disk. If the file is not 
available on the disk or if it is protected against that user, an 
appropriate message is printed. 

If a file name is preceded by the $ character, the file with 
the given name is taken from the system library. For example: 

OLD $DOG 

calls the file DOG from the system library. The system manager or 
group instructor will generally provide users with a list of files in 
the system library which are available for their access. (Many of 
these files are protected against change by users.) 
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Where no file name is indicated, BASIC looks for the file NONAME 
(which could have been created by the user or the system, see section 
11.2). For example: 

OLD 

OLD PROGRAM NAME — 

READY 

Whatever had been stored in the file named NONAME is now in core and 
available to the user. 

The OLD command can only retrieve BASIC source programs. Compiled 
programs can be run but not changed. Any program called with the OLD 
command can be edited by the user at the terminal. 

11.4 EDITING OF USER PROGRAMS 

During the course of typing a program at the terminal or after a 
program is seen to be incorrect, changes can be made in the text of a 
program. These changes are made in what is called the editing phase 
of BASIC, between the time when the system prints READY and the time 
when the user types RUN. (During this time, system commands and 
Immediate Mode statements can be executed.) 

The simplest type of correction is done during the typing of a 
line before the line is entered to the system with the RETURN key. 
For example: 

1)2 DEF FUN(X) = 

If the user realizes he has typed FUN instead of FNU, he can type 
the RUBOUT key once for each character to be erased. The RUBOUT key 
causes the erased character to be echoed on the user terminal 
between back slashes as they are erased. For example: 

ABC< RUBOUT X RUBOUT > DEF 

Typing the above is printed on the terminal as follows: 

ABC\CB\DEF 
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If the RETURN key is typed at the end of the above line, the system 
would receive it as follows: 

ADEF 

The letters B and C have been erased. 

If the user decides that his easiest course is to delete the 
entire line, and he has not yet typed the RETURN key, then he can 
type CTRL/U (hold down CTRL and U keys) , which performs this function. 
If the RETURN key has been typed, then the line may merely be retyped; 
the second version will replace the first in the computer memory. 

11.4.1 DELETE Command 

The DELETE command is used to remove one or more lines from the 
user program currently in core. For example: 

DELETE ipjaf 

causes line number 100 to be deleted. (The user should first be cer- 
tain that no other line references line number 100 unless that line 
is to be replaced.) 

DELETE li2rp(-2pfjaf 

causes all the program lines between and including line numbers 100 
and 200 to be deleted. If 100 and/or 200 do not exist in the program, 
any lines within the range from 100 to 200 are deleted. 

If several groups of lines are to be deleted, then the user can 
type: 

DELETE lj2rpf-2J2fjai, 3)? j?- 4!?^? , ljifS0-ll^fl 

which deletes all lines between 100 and 200, 300 and 400, and 1000 
and 1100. 

If only one line is to be deleted, it may be more convenient 
merely to type the line number and the RETURN key 
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which is equivalent to: 
DELETE 10 

11.4.2 LIST Conunand 

The LIST command is used to obtain a clean printed copy of all or 
part of the user's current program. This is especially useful during 
and after an editing session in which the original program is changed. 

In order to obtain a printed copy of the entire program as it 
currently exists within the system, type: 

LIST 
In order to list a single line, type: 

LIST Iflji 
to type line 100. 

In order to list a section of the program, type: 

LIST l(?i?-20)3 

which will cause the listing of the entire program from line number 
100 to line number 200 inclusive. 

In each of the above cases, BASIC prints a program header contain- 
ing the program title, date, and time. If this header material is not 
desired (as it might not be for normal editing) , the command may be 
given as LISTNH to delete the header material. To summarize: 

LIST Command Meaning 

LIST List the entire user program as it currently exists. 

LISTNH Same as LIST, but without a program header. 

LIST n List line n. 

LISTNH r\ List line n without a program header. 

LIST nl-n2 List lines nl through n2 

LISTNH nl-n2 List lines nl through n2 , inclusive, without a 
program header. 
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A ? is printed at the left of each line which BASIC-Plus considers 
to be in error. For example: 

?lJ3f PPRINT A+B 

11.4.3 CONT Command 

As explained in section 4.2 on Program Debugging, the STOP state- 
ment can be used to cause halts at various points in a user program. 
Immediate Mode examination of values or changes can be made to the 
program, followed by the resumption of program execution. Once a 
program has been stopped, it can be restarted at the point at which 
execution stopped by giving the 

CONT 

command followed by typing the RETURN key. When the CONT command is 
given, execution continues with the next executable statement following 
the STOP. 

11.5 MANIPULATING USER PROGRAMS 

The commands in this section enable the user to compile, save, 
run, and rename his files. These are all operations performed on a 
program as a whole (either in core or as a file) and are used once 
a complete program has been prepared at the terminal. 

11.5.1 RUN Command 

The RUN command is used to cause the execution of any BASIC 
program, either source or compiled. (Source programs are stored as 
the user typed them; compiled programs are files described in 
section 11.5.7.) 

In order to run the program currently in core, the user simply 
types : 

RUN 

This causes the execution of the program in core. A program header 
is printed after the RUN command is given, consisting of the program 
name, date, and time. If this information is not desired, the 
command 

RUNNH 
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should be given. RUNNH executes the current program without printing 
the header material. 

Where it is desired to run a program not in core, the command: 

RUN FILENAME 

can be given. This command causes BASIC to search for the file 
FILENAME on the disk, load, compile it (if necessary) , and run it if 
it is found. 

If FILENAME. BAS (source) and FILENAME. BAC (compiled) both exist, 
BASIC will execute FILENAME. BAC since it requires less time. In order 
to retrieve and execute FILENAME. BAS. it is necessary to issue 
separate OLD and RUN commands. The file is then available for any 
editing to be performed. 

Where the file to be run is not present on the disk but on 
another storage device, the format: 

RUN DEV: FILENAME 
where DEV: is the designation of the storage device. For example: 

RUN PTR: 

reads a BASIC program from the high speed reader and runs it. 

As with the OLD command, the character $ appearing before the 
name of a file indicates that the file resides in the system library. 
If the file can be accessed by the user, he will be allowed to run 
it (see section on file protection, 7.7). Only files with the 
extensions .BAS and .BAC can be RUN. 

11.5.2 SAVE Command 

The SAVE command is used to store BASIC source programs on the 
disk as follows: 

SAVE 

The program currently in core is saved under its file name with the 
extension .BAS. If a file of the same name exists, then SAVE returns 
the error message: 

FILE EXISTS - USE 'REPLACE' 
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Where the current name of the file is not the desired name, the 
format : 

SAVE FILENAME 

can be used, which saves the program currently in core under the 
name FILENAME. BAS . 

In cases where the desired storage device is not the disk, the 
format : 

SAVE DEV: FILENAME 

is used where DEV: indicates the device designation. The file is 
stored as FILENAME. BAS . For example: 

SAVE DTA4:R0PE 

saves the file ROPE. BAS on DECtape 4. 

The SAVE command is used only with source files and cannot be 
used with compiled files. When a program is saved, under some name, 
the program is still in core to be used or ignored as the user wishes. 

To obtain a listing of his program on the line printer, the user 
can type : 

SAVE Lp/: 

To punch a tape of his program, the user can type: 

SAVE PJ^P: 

11.5.3 UNSAVE Command 

The UNSAVE command is used to remove a file from a storage 
device. The form: 

UNSAVE FILENAME. BAC 

removes the file FILENAME. BAC from the disk. (Unless specified, the 
device assumed is the disk. ) If the command is given: 

UNSAVE FILENAME 
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BASIC attempts to remove first the file FILENAME. BAS and then the 
file FILENAME. BAG. Unless only one of the two is specified in the 
command, both are removed if they are found. 

To indicate another device, the form: 

UNSAVE: DEV: FILENAME 

is used, where DEV: is the device designation, for example: 

UNSAVE DTA4:F00 

removes the file(s) FOO.BAS and FOO.BAC from DECtape 4 if they are 
found. 

11.5.4 CHAIN Command, Program Overlaying 

If a user program is too large to be loaded into core and run in 
one operation, the user can segment the program into two or more 
overlays. Each overlay section is assigned a name and control can 
be transferred from one section to another with the CHAIN command. 

The CHAIN command is of the form: 

^TT^-rx-, ^ i ■ ^(<line number> ', 
CHAIN <stT%ng>\ j 

in which the string is the name of the next overlay section and the 
line number specifies the line number at which to begin execution. 
If no line number is specified, execution begins with the lowest 
numbered line. For example: 

CHAIN "PHASE 2" 2^ 

causes the current program segment to be overlayed with segment 
"PHASE2". Execution begins with line 2^ in the new segment. 

communication between various program segments can be done by 
means of the user's file area. 

When the CHAIN command is executed, all the user's open files 
are closed, the new segment is loaded, and execution continues. 
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11.5.5 RENAME Command 

The RENAME command causes the name of the program currently in 
core to be changed to the specified name. For example: 

RENAME NEWNAM 

The old name of the program in core is discarded and it is now known 
as NEWNAM If the SAVE command is given: 

SAVE 

the file NEWNAM, BAS would be stored on the disk. 

3J. . 5 . 6 REPLACE Command 

The REPLACE command is used when the program in core has the 
same name as a file on the disk and the user wishes the program in 
core to become the new file with that name. The command is simply 
of the form: 

REPLACE FILENAME 

REPLACE is like SAVE, but destroys without notice the old copy of 
same file, if it exists. 

11.5.7 COMPILE Command 

Normally RSTS-11 reads each line of a user's program as it is 
typed and, if acceptable, translates the line into a form more 
easily understood by the PDP-11 computer. As lines within the 
program are altered, only those lines which are changed need to be 
recompiled (i.e., translated). When the SAVE command is given, only 
the source version of the program (i.e., the text that is typed in 
response to the LIST command) is retained in the specified place. 
In response to the OLD command, BASIC reads the text from a file 
and compiles it in much the same manner as is done when the program is 
read from the user's keyboard. 

Once a program is completely developed and debugged, it may be 
desirable to avoid the time-consuming practice of compiling the 
program every time it is fetched from the library. For this reason, 
the COMPILE command has been provided. This command permits the 
user to save an image of his compiled program, rather than (or in 
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addition to) the source text of the program. This compiled program 
may be called in from the disk and executed with a minimum of overhead 
by use of the RUN command (see section 11.5.1). 

Due to the transformation that takes place when a program is 
compiled, a file with the extension .BAG can only be executed, it 
cannot be edited. Therefore, the user can issue the RUN command 
with respect to these compiled files, but the file cannot be brought 
into core with the OLD command. 



If the current file name (i.e., that which is typed in the head- 
ing of a listing) is "FILE^l" , then the command 

COMPILE 

will save the compiled program in a file named FILEj2fl.BAC. If 
another name is desired for the compiled file, it may be specified. 

COMPILE FOO 

will generate a file named FOO. BAG. 

11.6 SYSTEM STATUS REPORTS 

11.6.1 LENGTH Command 

The LENGTH command returns the length of the user's current 
core program. For example: 

LENGTH 

2K OF CORE USED 

iolA 

At least 2K of core (IK = -^W*- words) is reserved for each user with 

a maximum of 12K per user. The maximum size of a user program 
depends upon how much core is physically on the system and how much 
core the system administrator permits any single user to "own". 

11.6.2 CATALOG Command 

Giving the CATALOG command causes the user's file directory to 
be printed ^iBMHBffiBHNRiMHH^ (where no device is specified the 

list of user files is printed on the terminal). For example: 

A. 



m He )tjk %umtJf 
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CATALOG 

FOO .BAS 4 48 4-APR-71 29-MAR-71 10:50 AM 

\ f ^ \ \ f f 

name extension size protection > creation date ' 

access date time 

To obtain a CATALOG of files on a device other than the disk, 
one can give the command 

CATALOG DEV: 
For example: 

CATALOG $ 
lists the files in the system library; 

CATALOG [l!a'J2f,lj2fl] 
lists the files owned by user account 100,101; and 

CATALOG UTI^A: 
lists the files on DECtape unit 4. 
11.7. USING INPUT/OUTPUT DEVICES 

11 . 7 . 1 TAPE Command 

The TAPE command is used to disable the terminal echo feature 
when reading a paper tape with the low-speed (terminal) reader. The 
command is given as follows: 

TAPE 

followed by the RETURN key. The tape is then inserted in the low- 
speed reader and the reader control switch set to START. 

Prior to giving the TAPE command, the user will have set up 
conditions such that the system expects the program. For example, 
giving the following commands: 

NEW FOO 
TAPE 

causes the system to await the new program file FOO which is to be 
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entered to the system via the terminal tape reader. Giving the TAPE 
command disables the echo feature so that the program is not listed 
on the terminal as it is read. The same function would be served by 
the following commands: 

OLD FOO 
TAPE 

11.6.2 KEY command 

Since nothing input at the terminal is echoed once the TAPE 
command is given, the KEY command is used to enable the user to see 
what he is typing again. The command is typed as: 

KEY 

although it will not be printed on the terminal paper. Once the 
RETURN key is typed, all other characters typed at the keyboard are 
echo printed. It may sometimes be necessary to type +C to have 
RSTS-11 "hear" the KEY command. 

11.7.3 ASSIGN Command 

The ASSIGN command is used to reserve an I/O device for the use 
of a single programmer. The command is given in the form: 

ASSIGN DEV: 

where DEV: is the device designator (see Table 11-1). If the device 
is present on the system and available for use, the system returns 
the message: 

READY 
If the device is not available for use, the message: 

DEVICE NOT AVAILABLE NOW 

is returned. For example: 

ASSIGN LPT: ^ 

READY 

ASSIGN PTP: 

DEVICE NOT AVAILABLE NOW 
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TABLE 11.1 
DEVICE DESIGNATORS 



Code 

CtR 
MSR 
LP/ 

dtXj? 



to 



DT^7: 



Device 

high-speed paper tape reader 

high-speed paper tape punch 

card reader 

mark sense card reader 

line printer 

DECtape units to 7 

disk 

Teletype n in the system 



11.7.4 DEASSIGN Command 

The DEASSIGN command is used to release the specified device to 
the device pool within the system (for use by other users) . If no 
device is specified, all assigned devices are released from that 
project-programmer number. For example: 

DEASSIGN LPT: 

releases the line printer. 

DEASSIGN 

releases all devices previously assigned by that user. If a 
DEASSIGN command is not given before the user leaves the system, an 
automatic DEASSIGN is performed when the user gives the BYE command. 

11.8 SPECIAL CONTROL CHARACTERS 

11.8.1 RETURN Key 

Typing the RETURN key echoes as a carriage return/line feed 
operation on the terminal, as long as the terminal is not in TAPE 
mode . 
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11.8.2 ESCAPE or ALT MODE Key 

The ESCAPE key also terminates the current typed line and causes 
it to be entered to the system. However, the ESCAPE key echoes on 
the terminal paper as a $ character and does not perform a carriage 
return/line feed. 

11.8.3 LINE FEED Key 

The LINE FEED key is used to continue the current logical line 
of input on an additional physical line. The LINE FEED key does not 
echo on the terminal paper but does perform a carriage return/line 
feed operation when used with the BASIC-Plus system. 

Line feeds will produce errors in the user's programs if included 
in constants (including string constants), verbs, or user specified 
names for variables or functions. 

11.8.4 RUBOUT Key 

The RUBOUT key is used as an eraser for the current line. If 
typed in TAPE mode, the RUBOUT key is ignored; otherwise, it causes 
the character most recently typed to be deleted. The erased char- 
acters are shown on the terminal paper between back slashes. For 
example: 

Ijaf LEF X=X*X 

could be corrected by typing the RUBOUT key 7 times (to remove the 

F) and typing the remainder of the line correctly. The line would look 

as follows on the terminal paper: 

10 LEF X=X*X\X*X=X F\r X=X*X 

and would appear to the system as: 

lJ2f LET X=X*X 

In cases where the mistake is toward the beginning of a line, it may 
be easier to simply retype the entire line. For example: 

10 LEF X=X*X 
IjZf LET X=X*X 
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Once the second line is entered to the system, the first line numbered 
10 is deleted. 

11.8.5 CTRL/C 

By typing a CTRL/C (hold down the CTRL key and type the C key, 
release both) , the user causes BASIC to return to command mode, where 
commands can be given or editing done. CTRL/C stops whatever BASIC 
was doing at the time and returns control of the system to the user. 

11.8.6 CTRL/U 

The CTRL/U combination deletes the current input line. This is 
useful when a long command has been typed and is no longer wanted. 
Rather than use the RUBOUT key repeatedly, CTRL/U cancels the entire 
line. This feature can be used when typing either commands or state- 
ments. The entire physical line is deleted. 

11.8.7 CTRL/0 

The CTRL/0 combination suppresses output on the Teletype until 
the next time CPRL/O is typed (or CTRL/C is typed) . When a program 
produces a large amount of output (usually in tabular form) , the user 
may not wish to wait for the printing of the complete information. 
CTRL/0 enables the user to monitor the output while not stopping it 
completely. Typing CTRL/0 while output is occurring still allows 
the computer to output the data, but the Teletype does not print it. 
This speeds up the output process, since the Teletype is a rather 
slow device. The second time CTRL/0 is typed, the output is again 
sent to the Teletype for as long as the user wishes. 

CTRL/C, on the other hand, will completely stop the output. 
Think of CTRL/0 as a switch, the first setting of which creates a 
condition and the second setting releases the condition. 

11.8.8 TAB Character 

The TAB character or CTRL/I combination allows the user to 
insert a tabular format into his typed material. When entering a 
program to the system, the TAB character allows formatting such as is 
shown in section 9.5. The BASIC editor considers each line as 
being broken into tab stops eight spaces apart across the line. 
Typing the TAB character causes the printing head to move to the 
next of those stops on the line. 



^ %ko t»k\Uj 't%»6i^ m Tent ckT^. 
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If using a model 33 Teletype, the TAB echoes as spaces. The 
model 35 Teletype has built-in hardware tabs. 

11.8.9 CTRL/P 

The CTRL/P combination is used as a switch to engage or dis- 
engage the software tabs created with a model 33 Teletype. If the 
printer does not position itself at the next tab stop in response to 
a TAB, then CTRL/P should be typed to "toggle" this switch. 

11.8.10 CTRL/B 

The CTRL/B combination is used as a switch to stop and start 
echoing at the user terminal. This feature is useful when operating 
remotely from a half -duplex Teletype. 

RSTS-11 assumes that the terminal user is at a full duplex 
Teletype, which requires that characters typed at the user terminal 
be echoed by the system at the user's printer. Some Teletypes provide 
this local echo function as a part of their normal functioning. Such 
Teletypes are easily recognized, since each character typed by the 
user is echoed twice: once by the Teletype and once by the RSTS system. 
When this symptom is seen, typing CTRL/B will cause RSTS to suppress 
its Teletype character echo, so that only the local echo is printed. 
Conversely, RSTS may think a Teletype is half duplex when actually 
it is full duplex; in this case, typed characters are not echoed at 
all. Typing CTRL/B will then alter the assumption RSTS makes, and 
resume Teletype echoing. 

11.8.11 CTRL/Z 

The CTRL/Z combination is used to mark the end of a file; when 

inputting data from a file, a CTRL/Z character marks the end of the 

recorded data. The message "END OF FILE ON DEVICE" is given when a 
+Z is detected. 
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APPENDIX A 
BASIC-PLUS LANGUAGE SUMMARY 



A. 1 Summary of Variable Types 



Type 
Floating Point 

Integer 
Character String 



Floating Point 
Matrix 



Integer Matrix 



Character String 
Matrix 



Variable Name Examples 

single letter A 

optionally followed by a I 
single digit X3 

any floating point variable B% 
name followed by a % character D7% 

any floating point variable M$ 
name followed by a $ character Rl$ 

any floating point variable 
name followed by one or two 
dimension elements in 
parentheses 

any integer variable name 
followed by one or two dimen- 
sion elements in parentheses 

any character string variable C$(l) 
name followed by one or two A2$(8) 
dimension elements in paren- 
theses 



S(4) E(5,l) 
N2(8) V8(3,3) 



A%(2) I%(3,5) 
E3%(4) R2%(2,1) 



S$(8,5) 
Vl$(4,2) 



A- 2 SUMMARY OF OPERATORS 



Type 

Arithmetic 



Relational 



Logical 



String 
Matrix 



+ 



< 

<= 

> 

>= 

<> 

NOT 

AND 

OR 

XOR 

IMP 

EQV 



+ ,- 



Operator 



exponentiation 

unary minus 
*,/ multiplication, division 
+,- addition, subtraction 



equals 

less than 

less than or equal to 

greater than 

greater than or equal to 

not equal to 

approximately equal to 

logical negation 
logical product 
logical sum 
logical exclusive or 
logical implication 
logical equivalence 

concatenation 



Operates Upon 

numeric variables 
and constants 



string or 
numeric variables 
and constants 



relational ex- 
pressions composed 
of string or 
numeric elements 
with relational 
operators 

string constants 
and variables 



addition and subtraction dimensioned vari- 
of matrices of equal dimen- ables. See 



sions, one operator per 
statement 

multiplication of con- 
formable matrices 
scalar multiplication of 
a matrix, see Section 8.5.1 



Section 8.5.1 
for further de- 
tails. 
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A. 3 SUMMARY OF FUNCTIONS 



Type 

Mathematical 



Print 



Function 

ABS (X) 
ATN(X) 
COS(X) 
EXP(X) 
FIX(X) 

INT(X) 

LOG(X) 

LOGlfHK) 

PI 

RND(X) 

SGN(X) 

SIN(X) 
SQR(X) 
TAN(X) 

POS(X) 



TAB(X) 



Explanation 

returns the absolute value of X 
returns the arctangent of X in radians 
returns the cosine of X in radians 
returns the value of e X, where e=2.1418 
returns the truncated value of X, 

SGN(X) *INT(ABS (X)) 
returns the greatest integer in X which 

is less than or equal to X 
returns the natural logarithm of X, log X 
returns the common logarithm of X, log-iSx 
has a constant value of 3.1415926 
returns a random number between and 1 
returns the sign function of X, a value 

of 1 preceded by the sign of X 
returns the sine of X in radians 
returns the square root of X 
returns the tangent of X in radians 

returns the current position of the print 
head for the device X, is the user's 
Teletype. (This value is imaginary for 
disk files.) 

moves print head to position X in the 
current print record, regardless of 
current position. 



String 



lOSOZiP'.'^^-^^) MID{A$,N1,N2) 



CHR$ (X) returns a character string having the 
ASCII value of X. Only one character 
is generated. 

ASCII (A$) returns the ASCII value of the first 
character in the string A$. 

LEFT(A$,N) returns a substring of the string A$ 
from the first character to the Nth 
character (the leftmost N characters) . 

RIGHT (A$,N) returns a substring of the string A$ 

from the Nth to the last character (the 
rightmost characters of the string 
starting with the Nth character) . 



System 



returns a substring of the string A$ 
starting with character Nl and being N2 
characters long (the characters between 
and including the Nl to Nl+N2-lcharacters) 
LEN(A$) returns the number of characters in the 
string A$, including trailing blanks. 

DATE$(!?) returns the current date in the follow- 
ing format : 
2 -MAR- 71 
DATE$ (N) returns a character string corresponding 
to the Julian date N+70,000 
DATE$(1) = "jafl-JAN-70" 
DATE$(24J0) = "i2(5-MAY-70" 
TIME$(^) returns the current time of day as a 
character string as follows: 
TIME$(0) = "(2f5:3jaf PM" 
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Suniinary of Functions (Cont.) 



Type 



Matrix 



Function Explanation 

TIME${N) returns a string corresponding to the 
time at N minutes before midnight, for 
example : 

TIME$(1) = "11:59 PM" 
TIME$(1440) = "12:0i3f AM" 
TIME${721)= "11:59 AM" 

TIMECj?) returns the clock time in seconds since 
midnight, as a floating point niomber. 

TIME(l) returns the central processor time used 
by the current job in seconds. 

TIME (2) returns the connect time (during which 
the user is logged into the system) for 
the current job in seconds. 

SLEEP (X) dismiss this job for X seconds 

WAIT (X) causes the currently running program to 
be dismissed for either X seconds or un- 
til a line is typed at the user terminal, 
whichever comes first. Generates error 
condition #15 if wait is exhausted. 

WAIT(j2f) causes the system to wait for input 
from the user terminal with no time 
limit. 

TRN(X) returns the transpose of the matrix X, 

see section 8.5.2. 
INV{X) returns the inverse of the matrix X, 

see section 8.5.2. 
DET following an INV(X) function evaluation, 

the variable DET is equivalent to the 

determinant of X. 



A. 4 SUMMARY OF BASIC-PLUS STATEMENTS 

The following summary of statements available in the BASIC-Plus 
language defines the general format for the statement as a line in 
a BASIC program. If more detailed information is needed, the reader 
is referred to the section (s) in the manual dealing with that parti- 
cular statement. 

In these definitions, elements in angle brackets are necessary 
elements of the statement. Elements in square brackets are necessary 
elements of which the statement may contain one. Elements in braces 
are optional elements of the statement. 

The various elements and their abbreviations are described 
below: 



variable or vav 

tine number 



Any legal BASIC variable as described 
in A.l or section 2.5.2 

Any legal BASIC line number described 
in section 2.2 
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express^on or ea:p 

message 

aondition or aond 

argument( s) or arg 

statement 

string 

protection 

value (s ) 

list 

dimension(s) 



Any legal BASIC expression as described 
in section 2.5 

Any combination of characters 

Any logical condition as described in 
section 3.5 

Dummy variable names 

Any legal BASIC-Plus statement 

Any legal string constant or variable 

Any legal protection code as described 
in section 7.7 

Any floating point integer or character 
string constant 

The legal list for that particular 
statement 

One or two dimensions of a matrix, the 
maximum dimension (s) for that particular 
statement. 



Statement Formats and Examples 



Manual 
Section 



REM 



line number REM <message> 
line number <statement> l<message> 
IJ? REM THIS IS A COMMENT 
15 PRINT : PERFORM A CR/LF 



3.1 



LET 



line number ?LETj<uar> = <exp> 
55 LET A=4J2I: B=22 
6)? B,C,A=4.2 IMULTIPLE ASSIGNMENT 



3.2 



DIM 



line number 
191 



DIM <var idimensionC s ) )> 
DIM A(2|2r) , B$(5,l)?) , C%(45) 



3.6.2 



line number DIM #<exp>, <var {dimensionCs ) )>=<exp> 
75 DIM #4, A${lJ?i2()=32,B(5J2r,5)2f) 



7.5 



RANDOMIZE 

line number 
55 

IF-THEN , IF-GOTO 

line number 

55 
6j2f 
95 



RANDOMIZE 
RANDOMIZE 



[" 



j THEN<s tatement> 
IF <oond> ;THEN<Zine number> 
GO'J!0< line numbe-> 
IF A>B OR 'S>C THEN PRINT "NO""' 
IF FNA(R)= B THEN 25j? 
IF L<X+2 AND L<>0 GOTO 345 



3.6.3 



3.5 



IF-THEN-ELSE 



line number IF <oond> 



'THEli<s tatement> 
' THEU<line number> 
GOTO<line number> 



-< 



9.5 

El.SE<s tatement> ~^ 



;' E'LSE<line number> 



30 IF B=A THEN PRINT "EQUAL" ELSE PRINT "NOT EQUAL" 
50 IF A>N THEN 200 ELSE PRINT A 
75 IF B= R THEN STOP ELSE S0 
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FOR 



line number FOR<uar>=<ea;p>TO<ea;p>[STEP<exp>j 
2j? FOR 1=2 TO 4J? STEP 2 
55 FOR N=A TO A+R 



3.6.1 



WHILE 
UNTIL 



FOR-WHILE, FOR-UNTIL 

line number FOR <var> = <ea;p> fSTEP<e a;p> 5 
84 FOR 1 = 1 STEP 3 WHILE KX 
74 FOR N = 2 STEP 4 UNTIL N>A OR N=B 
5 FOR B= 1 UNTIL B>i;2l 



9.6 



<aond> 



NEXT 



line number NEXT <var> 
25 NEXT I 
60 NEXT N 



3.6.1 



DBF, single line 

line number DEF FN <var {.arg)>=<exp {arg )> 
20 DEF FNA(X) = X+ 2 + X 

DEF, multiple line 

line number DEF F^<var> (arg) 

<statements> 
line number FN <var>= <exp> 
line number FNEND 

lj2f DEF FNF(M) [FACTORIAL FUNCTION 

20 IF M=l THEN FNF=1 ELSE FNF=M*FNF (M-1) 

3(2( FNEND 



GOTO 



line number GOTO <line number> 
lJ2(J2f GOTO 50 



3.9.3 

5.5.1 
6.4 

9.1 



3.4 



ON -GOTO 



line number ON <exp> GOTO <list of line numbers> 
75 ON X GOTO 95, 150, 45, 200 



9.2 



GOSUB 



line number GOSUB <line number> 
90 GOSUB 200 



3.8.1 



ON-GOSUB 



l%ne number ON <exp> GOSUB <list of line numbers> 
85 ON FNA{M) GOSUB 200, 250, 400, 375 



RETURN 



line number RETURN 
375 RETURN 



9.3 



3.8.2 



CHANGE 



line number CHANGE 



<numeriaal var>\ 
<string var> J 



<string var> 



1 5.2 



<numeriaal var>j 



25 CHANGE A$ TO X 
70 CHANGE M TO R$ 
75 CHANGE B TO B$ 
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OPEN 7.2 

line number OPEN <string'>5F0R ^^i^^ ^ AS FILE <exp> 10.5 

10 OPEN "PTP:" FOR OUTPUT AS FILE Bl 

20 OPEN "FOO" AS FILE 3 

30 OPEN "DTA4:DATA.TR" FOR INPUT AS FILE 10 

CLOSE 7.6 

line number CLOSE <list of exp> 10.6 

100 CLOSE 2 

255 CLOSE 10, 4, Nl 



READ 3.3 

line number READ <list of variables> 3.9 

25 READ A, B$, C% , Fl, R2 , B(25) 10.1 

DATA 3.3 

line number DATA <li8t of values> 3.9 

300 DATA 4.3, "STRING" , 85 , lE+4 , 49 , 75 .04 10.1 

RESTORE 3.3 

line number RESTORE 3.9 

125 RESTORE 10.2 

PRINT 3.3 

line number PRINT ■ll%<exTp>,'\<list>^ 5.4 

25 PRINT IGENERATES CR/LF 6.3 

75 PRINT "BEGINNING OF OUTPUT"; I ,A*I 7.3 

45 PRINT #4, "OUTPUT TO DEVICE" FNM (A) + 2 ;B; A 10.4 

PRINT USING 9.8.1 

line number PRINT £#<ea;p> ,} USING <8tring>j<list> 10.4 

54 PRINT USING "##.##", A 

55 PRINT #3, USING" \\###.## Wttf+t+t", "A=" , A, "B=" ,B 

INPUT 5.3 

line number INPUT l%<exp> ,]<list> 3.10 

25 INPUT "TYPE YOUR NAME " , A$ 7.4 

55 INPUT #8, A, N, B$ 10.3 

INPUT LINE 9.9 

line number INPUT LINE r#<exp> ,] <striwg'> 10.3 

40 INPUT LINE R$ 

75 INPUT LINE #1, E$ 

NAME -AS 7.7 

line number NAME <string> AS <string>£<proteotion>'^ 

455 NAME "NONAME" AS "FILEl" 

270 NAME "DTA4:MATRIX" AS "MATAl"<48> 

KILL 7.8 

line number KILL <string> 

45 KILL NONAME 
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ON ERROR GOTO 9,4 

line numhev ON ERROR GOTO <line number> 

lj2f ON ERROR GOTO SJ?)? 

525 ON ERROR GOTO : DISABLES ERROR ROUTINE 

526 ON ERROR GOTO ! DISABLES ERROR ROUTINE 

RESUME 9.4 

line number RESUME <line number> 

l!il00 RESUME :0R RESUME J2f ARE EQUIVALENT 

655 RESUME 200 

3.12 



3.12 



STOP 




line number 


STOP 


75 


STOP 


END 




line number 


END 


545 


END 


Matrix Statements 




MAT READ 





8 . 1 

line number MAT READ <list of matrices^ 

55 DIM A(20) , B$(32), C%(15,10) 

S0 MAT READ A, B$(25), C% 

MAT PRINT ^ 8.2 

line number MAT RRINT ^#<ea;p> , ^ <matrix name> 

10 DIM A (2)2) ; B(15,2^) 

90 MAT PRINT A; ! PRINT 10*10 MATRIX, PACKED 

95 MAT PRINT B(lJ2f,5) IPRINT 10*5 MATRIX, FIVE 

: ELEMENTS PER LINE 

97 MAT PRINT #2, A; I PRINT ON OUTPUT DEVICE 2 

MAT INPUT 8.3 

line number MAT INPUT f#<exp>,} <list of matrioes> 

10 DIM B$(4J2() , Fl%(35) 

20 OPEN "DTA3:F00" FOR INPUT AS FILE 3 

30 MAT INPUT #3, B4, Fl% 



MAT initialization 

line number MAT <matrix name> = 



ZER 
CON 

idhj 



f dimension(s ) 3 



CHAIN 



10 dim B(15,l)2f) , A{10) , C%(5) 

15 MAT C% = CON :aLL ELEMENTS OF C%(I)=1 

20 MAT B = T\M{10,10) I IDENTITY MATRIX ipf*ipf 

95 MAT A = ZER I CLEARS MATRIX ELEMENTS TO 
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statement Modifiers 

IF 9.7.1 

<s tatement> IF <aondition> 

1^ PRINT X IF Xoj? 

UNLESS 9.7.2 

<statement> lM'LESS<aondition> 

45 PRINT A UNLESS A=0 

FOR 9.7.3 

<8tatement> FOR <var> = <exp> TO <ea:p> [STEP<ea:p>5 

75 LET B$(I) = "PDP-11" FOR I = 1 TO 25 

QfS READ A (I) FOR 1=2 TO 8 STEP 2 

WHILE 9.7.4 

<statement> WHILE <aondition> 

l$l LET A(I) = FNXd) WHILE K45.5 

UNTIL 9.7.5 

<statement> UNTIL <oondition> 

115 IF B>J? THEN A(I)=B UNTIL I>5 
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APPENDIX B 



BASIC-PI US Command Summary 



Command 



Explanation 



Section 



HELLO Indicates to RSTS that a user wishes to log 11.1.2 
onto the system. Allows the user to input 
project-programmer number and password. 

BYE Indicates to RSTS that a user wishes to leave 11.1.3 
the terminal. Closes and saves any files re- 
maining open for that user. 

NEW Clears the user's area in core and allows the 11.2 
user to input a new program from the terminal. 
A program name can be indicated following the 
word NEW or when the system requests it. 

OLD Clears the user's area in core and allows the 11.3 
user to recall a saved program from a storage 
device. The user can indicate a program name 
following the word OLD or when the system re- 
quests it. If no device name is given, the 
file is assumed to be on the system disk. 

DELETE Allows the user to remove one or more lines 11.4.1 
from the program currently in core. Following 
the word DELETE the user types the line number 
of the single line to be deleted or two line 
numbers separated by a comma indicating the 
first and last line of the section of code to 
be removed. TVt uj«i oe^e^ 4y hflf- iflthj v^^,it eum>^ fiit^**. 

LIST Allows the user to obtain a printed listing at 11.4.2 
the user terminal of the program currently in 
core, or one or more lines of that program. 
The word LIST by itself will cause the listing 
of the entire user program. LIST followed by 
one line number will list that line; and LIST 
followed by two line numbers separated by a 
comma will list the lines between and including 
the lines indicated. 

LISTNH Same as LIST, but does not print header con- 11.4.2 
taining the program name and current date . 

CONT Allows the user to continue execution of the 11.4.3 
program currently in core following the execu- 
tion of a STOP statement. 



RUN 



Allows the user to begin execution of the pro- 
gram currently in core. The word RUN can be 
followed by a file name in which case the file 
is loaded from the system disk, compiled, and 
run; alternatively, the device and file name can 
be indicated if the file is not on the system 
disk. A device specification without a file name 
will cause a program to be read from an input only 
device (such as high-speed reader, card reader) . 



11.5.1 
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Command 



Explanation 



Section 



RUNNH 



SAVE 



UNSAVE 



CHAIN 



Same as RUN, but does not print header con- 11.5.1 
taining the program name and current date . 

Causes the program currently in core to be 11.5.2 
saved on the system disk under its current 
file name with the extension .BAS. Where 
the word SAVE is followed by a file name 
or a device and a file name, the program in 
core is saved under the name given and on 
the device specified. A device specifica- 
tion without a file name will cause the pro- 
gram to be output to any output only device 
(line printer, high-speed punch) . 

The word UNSAVE is followed by the file name 11.5.3 
and extension of the file to be removed. If 
no device is specified, the disk is assumed. 

Allows the user to combine a segmented pro- 11.5.4 
gram in user core. Following the word CHAIN 
is the name of the next overlay section (as- 
signed with the SAVE command) and, optionally, 
a line number on which to begin execution if 
the lowest line number is not to be used. 



RENAME Causes the name of the program currently in 

core to be changed to the name specified after 

the word RENAME. 



11.5.5 



REPLACE Same as SAVE, but allows the user to substi- 11.5.6 
tute a new program with the same name for an 
old program, erasing the old program. 

COMPILE Allows the user to store a compiled version of 11.5.7 
his BASIC proqram. The file is stored on disk 
with the current name and the extension .BAC. 
Or, a new file name can be indicated and the 
extension .BAC will still be appended. 

LENGTH Returns the length of the user's current pro- 11.6.1 
gram in core. 

CATALOG Returns the user's file directory. Unless 11.6.2 
another device is specified following the 
word CATALOG, the disk is the assumed device. 



TAPE 



KEY 



Used to disable the echo feature on the user 
terminal while reading paper tape via 
low-speed reader. 

Used to re-enable the echo feature on the 
user terminal following the issue of a TAPE 
command. 



11.7.1 



11.7.2 



ASSIGN Used to reserve an I/O device for the use of 

the individual issuinq the command. The speci- 
fied device can then be given commands only 
from the terminal which issued the ASSIGN. 



11.7.3 



B-2 



Command 



Explanation 



Section 



DEASSIGN Used to release the specified device for 

use by others. If no particular device is 
specified, all devices assigned to that 
terminal are released. An automatic 
DEASSIGN is performed when the BYE command 
is given. 



11.7.4 



Special Control Character Summary 



RETURN 
Key 



Enters a typed line to the system, results 
in a carriage return/line feed operation at 
the user terminal. 



11.8.1 



ESCape or Enters a typed line to the system, echoes 
ALT MODE on the user terminal as a $ character and 
Key does not cause a carriage return/line feed. 



11.8.2 



LINE FEED Used to continue the current logical line 
Key on an additional physical line. Performs a 

carriage return/line feed operation. 



11.8.3 



RUBOUT 
Key 



Deletes the last character typed on that 
physical line. Erased characters are shown 
on the terminal between back slashes. 



11.8.4 



CTRL/C 



Causes the system to return to BASIC command 
mode to allow for issuing of further commands 
or editing. Echoes on terminal as +C. 



11.8.5 



J/ u 



Deletes the current typed line, echoes as 
+U and performs a carriage return/line feed. 



1 O f 



CTRL/0 



Used as a switch to suppress/enable output 
of a program on the user terminal. 



11.8.7 



TAB or 
CTRL/I 



Performs a tabulation to the next of nine 
tab stops (eight spaces apart) which form 
the terminal printing line. 



11.8.8 



CTRL/P 



Used as a switch to enable/disable the soft- 
ware tabs created with a Model 33 Teletype 
terminal. 



11.8.9 



CTRL/B 
CTRL/Z 



Used as a switch to stop/start the echo 
feature at the user's terminal. 

Used as an end-of-file character. 



11.8.10 



11.8.11 



B-3 



APPENDIX C 



Error Message Summary 



The following messages are printed when an error of the specified 
type occurs. These errors can cause a transfer to a user-written sub- 
routine if the ON ERROR-GOTO Statement has been used (in which case the 
message is not printed) . Many of the following messages are followed 
by the phrase AT LINE XXX where XXX indicates the line number at which 
the error occurred. The value of the variable ERR following execution 
of the ON ERROR-GOTO transfer is given below. 



ERR 



Error Message 



Meaning 



1 BAD DIRECTORY FOR DEVICE 

2 ILLEGAL FILE NAME 

3 FILE IS CURRENTLY OPEN 

4 NO ROOM ON DEVICE 

5 CAN'T FIND FILE 

6 NOT A VALID DEVICE 

7 I/O CHANNEL ALREADY OPEN 

8 DEVICE NOT AVAILABLE 

9 I/O CHANNEL NOT OPEN 

10 PROTECTION VIOLATION 

11 END OF FILE ON DEVICE 

12 OPERATION ABORTED 

13 DATA ERROR ON DEVICE 

14 DEVICE OK? 



File lookup is impossible on the 
device specified. 

The file name given contains em- 
bedded blanks or illegal characters. 

Another user has opened this file. 

Sufficient storage space on device 
specified is not available to store 
the file. 

File is not present on indicated 
device. 

Device indicated is not present in 
the system. 

A file is already open using that 
internal file designator. 

Another user has assigned that de- 
vice for his use. 

No file has been opened on the 
particular internal file designator 
used. 

This file is not available for your 
project-programmer code. 

Program attempted to read beyond 
the end of the file. 

Serious I/O failure. 

Parity error detected. 

Device is off-line or requires 
service. 
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ERR 



Error Message 



Meaning 



15 TELETYPE WAIT EXHAUSTED 

16 FILE OF SAME NAME EXISTS 

17 VIRTUAL CORE NOT ON DISK 

18 VIRTUAL CORE EXCEEDED 

19 VIRTUAL ARRAY NOT OPENED 

20 ILLEGAL I/O CHANNEL 

21 LINE TOO LONG 

22 FLOATING POINT ERROR 

23 ARGUMENT TOO LARGE IN EXP 

24 ARGUMENT TOO LARGE IN SIN 

25 INTEGER ERROR 

26 ILLEGAL NUMBER 

27 TRANSCENDENTAL ERROR 

28 IMAGINARY SQUARE ROOT 

29 SUBSCRIPT OUT OF RANGE 

30 OUT OF DATA 

31 ON-STATEMENT OUT OF RANGE 

32 NOT ENOUGH DATA IN RECORD 

33 ILLEGAL UUO FOR USER 



User did not respond at the term- 
inal within the allotted time. 

Attempt to put a second file of 
the same name on the same device. 

Attempt to reference virtual core 
on a device other than the system 
disk. 

Not enough disk space left free 
to hold the virtual core area re- 
quired. 

File containing virtual core 
matrix has not been opened before 
being referenced. 

Acceptable I/O internal device 
designators are integers from 1 
to 12. 

More than 256 byte record read 
from an I/O device. 

Underflow or overflow has occurred. 

Inaccurate results will follow. 

Inaccurate results will follow. 

Overflow has occurred. 

A non-numeric character was en- 
countered in a number. 

Attempt to take log of or of a 
negative number. 

User requested square root of a 
negative number. (SQR(ABS(X)) 
returned. 

Undefined element of a matrix 
referenced. 

User has exhausted DATA statement 
pool. 

The expression in an ON-statement 
was less than 1 or greater than 
the number of line numbers speci- 
fied. 

User tried to input more data 
than present on the next logical 
record of the file being used. 

User has executed a SYS function 
illegally or with a bad argximent. 
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The following messages are given when a fatal error has occurred; 
each is followed by the phrase AT LINE XXX where XXX is the line num- 
ber where the error occurred. Execution stops after the printing of 
one of the following messages. 



Error Message 



Meaning 



MAXIMUM CORE EXCEEDED 



STATEMENT NOT FOUND 



ILLEGAL STATEMENT 



STOP 



UNIMPLEMENTED CODE 



User program has overflowed one or 
more of the following: pushdown 
list, string storage, I/O buffer 
area, or matrix storage. 

The line specified in a GOTO or 
GOSUB statement is not present. 

An attempt was made to execute a 
statement that could not be compiled. 

A STOP statement was the last state- 
ment executed, rather than the END 
statement. This message is not 
necessarily an error, but provides 
the user with the information on 
where program execution has stopped. 

The BASIC-Plus runtime interpreter 
cannot execute the compiled state- 
ment. 



RETURN WITHOUT GOSUB 



BAD NESTING OF GOSUB OR DEF 



UNDEFINED FUNCTION CALLED 



A RETURN Statement was executed 
without a preceding GOSUB statement. 

A DEF statement was encountered in 
the middle of a prior multi-line 
function definition. 

A reference exists to a user func- 
tion FNa, which has not been defined. 



The following error messages are printed by the BASIC-Plus com- 
piler while a program is being typed or commands are being given and 
allow the user to correct mistakes before a program is run. When the 
program is listed, lines containing these errors are preceded by a ? 
character. 



Error Message 



Meaning 



ILLEGAL SYMBOL 
ILLEGAL VERB 



An improper variable name was used. 

The word or term following the line 
number is not a recognizable BASIC 
statement designator. 



c-a 



Error Message 



Meaning 



ILLEGAL EXPRESSION 



An expression was detected which 
does not conform to acceptable ex- 
pressions in BASIC. See Section 
2.5. 



ILLEGAL MODE MIXING 



ILLEGAL IF STATEMENT 



ILLEGAL CONDITIONAL CLAUSE 



ILLEGAL FUNCTION NAME 



Numbers (floating point or integer) 
cannot be combined in an expression 
with character strings. 

Either the IF, THEN, or ELSE phrase 
is incorrect. See Sections 3.5 
and 9.5. 

The expression following IF in a 
conditional expression is not prop- 
erly constructed. 

Function name used does not follow 
conventions established for user- 
defined functions. 



ILLEGAL DUMMY VARIABLE 



ILLEGAL FN REDEFINITION 



ILLEGAL LINE NUMBER(S) 



MODIFIER ERROR 



CAN'T COMPILE STATEMENT 



EXPRESSION TOO COMPLICATED 



One or more dummy variables in a 
user-defined function are used 
elsewhere in that program. 

Attempt to redefine a user function. 
The first definition is retained 
and must be deleted before the 
second can be accepted. 

The line number used is out of the 
range for line numbers (1 n 3 27 6 8) 
or the number is not an integer. 

Either the modifier phrase of the 
statement is incorrect or BASIC has 
interpreted some other error to be 
an incorrect attempt at a modifier 
phrase. 

The statement does not make sense 
to the BASIC compiler. 

Rewrite the expression, using two 
or more statements. 



ARGUMENTS DON'T MATCH 



The number and/or type (numeric or 
string) of the arguments with which 
a function is called do not agree 
with the function definition. 



TOO MANY ARGUMENTS 



INCONSISTENT FUNCTION USAGE 



A maximum of eight arguments can 
be used with a user-defined func- 
tion. 

Function is redefined with differ- 
ent number or kind of arguments. 
This message is a warning only, 
indicating that BASIC is aware of 
a change in the function- 
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Error Message 



Meaning 



ILLEGAL DEF NESTING 



FOR WITHOUT NEXT 



NEXT WITHOUT FOR 



A DEF statement was detected within 
a multiple line function definition. 

No NEXT statement can be found with 
a variable corresponding to the 
control variable in the FOR state- 
ment. 

No FOR statement can be found with 
the control variable corresponding 
to the variable in the NEXT state- 
ment. 



DEF WITHOUT FNEND 



FNEND WITHOUT DEF 



CONSTANT STRING NEEDED 



TOO FEW ARGUMENTS 



A multiple line function definition 
was encountered without a FNEND 
statement marking the end of the 
function. 

An FNEND statement was found with- 
out a preceding DEF statement. 

A character string variable is not 
acceptable in this uage, a character 
string constant must be used. 

A device or file name was omitted 
in an ASSIGN or RENAME command. 



SYNTAX ERROR 



STRING IS NEEDED 



NUMBER IS NEEDED 



DATA TYPE ERROR 



1 OR 2 DIMENSIONS ONLY 



PROGRAM LOST-SORRY 



RESUME AND NO ERROR 



REDIMENSIONED ARRAY 



INCONSISTENT SUBSCRIPT USE 



Elements within the statement have 
been arranged in the wrong sequence. 

A number was specified where a 
character string was expected. 

A character string was specified 
where a number was expected. 

The type of term found in the DATA 
statement pool did not correspond 
to the type of variable about to be 
read by the current READ statement. 

A matrix was specified with more 
than two subscripts. 

The user attempted to continue his 
program execution after receiving 
a MAXIMUM CORE EXCEEDED error. 

A RESUME command was given when no 
error condition existed. The CONT 
(continue) command should be used. 

A previously dimensioned matrix is 
being dimensioned again. The 
original dimension is maintained. 

A matrix is being referenced with 
a different number of subscripts 
than it was defined to have. 



C-5 



Error Message 
ON-STATEMENT NEEDS GOTO 

TEXT TRUNCATED 



Meaning 

ON statement must be followed by a 
GOTO and a list of line numbers. 

The user typed a program line with 
more than 255 characters. 



The following errors are fatal and cause a termination of program 
execution, but the phrase AT LINE XXX is not printed. 



Error Message 



Meaning 



WHAT? 



BASIC-Plus did not understand the 
line entered. 



NO END STATEMENT IN PROGRAM 



NOT ENOUGH CORE 



EXECUTE ONLY FILE 



STATEMENT NOT FOUND 



PLEASE USE THE RUN COMMAND 



CAN'T CONTINUE 



END OF STATEMENT NOT SEEN 



FILE EXISTS - USE ' REPLACE ' 



SWAP ERROR FOR JOB 



PLEASE SAY HELLO 



ILLEGAL IN IMMEDIATE MODE 



S£)jee-V 



When reading a file recalled by an 
OLD command, an end-of-file condi- 
tion was detected before reading an 
END statement. 

A previously saved program is too 
large to run in core. See the CHAIN 
command section. 

Not possible to LIST or SAVE a com- 
piled program. 

When chaining to a program, the 
starting line specified was not 
found. 

Attempt to execute a statement in 
Immediate Mode which only makes 
logical sense in a program. 

User changed program or execution 
was terminated by a fatal error. 

A badly formed statement has caused 
BASIC-Plus to miss detecting the 
end of that statement. 

An attempt was made to SAVE a file 
which was already on the system 
disk. REPLACE will delete the old 
file and save the new file. 

A disk error occurred while moving 
the user's job to or from core. The 
user's program is lost. 

The user cannot use the RSTS-11 sys- 
tem until he has identified himself. 

This statement cannot be executed 
in Immediate Mode. 
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APPENDIX D 



ASCII CHARACTER CODES 





ASCII Code No. 




ASCII Code No. 


Character 


(Decimal) 


Character 


(Decimal) 


rfhtA. 


32 


64 


! 


33 


A 


65 


It 


34 


B 


66 


# 


35 


C 


67 


$ 


36 


D 


68 


% 


37 


E 


69 


& 


38 


F 


70 


1 


39 


G 


71 


c 


40 


H 


72 


) 


41 


I 


73 


* 


42 


J 


74 


+ 


43 


K 


75 


f 


44 


L 


76 




45 


M 


77 


• 


46 


N 


78 


/ 


47 





79 





48 


P 


80 


1 


49 


Q 


81 


2 


50 


R 


82 


3 


51 


S 


83 


4 


52 


T 


84 


5 


53 


U 


85 


6 


54 


V 


86 


7 


55 


w 


87 


8 


56 


X 


88 


9 


57 


Y 


89 


: 


58 


Z 


90 


t 


59 


[ 


91 


< 


60 


\ 


92 


= 


61 


] 


93 


> 


62 


+ 


94 


? 


63 


■«- 


95 



Additional symbols useful on output are as follows: 



LF (line feed) 10 

CR (carriage return) 13 



The above list is not complete; there are 128 characters num- 
bered through 127. 



(. 



hJ.. 



UL-t--^- 



D-1 



INDEX 



ALT MODE key, 1-5, 11-17 
AND, 2-9 

Angle brackets, 1-2 
Arithmetic operators, 2-4, 2-7 
ASCII character codes, 5-5 
ASCII function, 5-10 
ASSIGN command, 11-15 
Asterisk, 9-18, 10-7 



.BAC, 7-2, 11-10 

Backslash, 9-17, 10-7 
.HAS, 7-2, 11-10 

Braces, 1-4 

Brackets, 1-2 , 1-3 

BYE command, 11-2 



CATALOG command, 11-13 
CDR: , 7-1 

CHAIN command, 11-11 
CHANGE statement, 5-4 
Channel, see Internal file desig- 
nator 
Character set, 2-4 
Character strings, 5-1 

constants, 5-3 

variable names, 5-2 
Character string 

input, 5-7 

output, 5-9 
CHR$ function, 5-10, S-19 
CLOSE statement, 7-11, 10-14 
Colon (:) , 2-3, 2-4, 4-2 
CON, 8-4 

Concatenation operator, 5-10 
Condition, 3-8, 9-8, 9-11 
Conditional Branch, 3-7 
Conditional loop termination, 9-10 
Conditional transfer ON-GOTO, 9-3 
Constants 

character strings, 5-3 

integer, 6-1 

number, 2-5 
CONT command, 4-2, 11-8 
Conventions, manual, 1-2 
Conversational language, 1-2 
Comma (,), 2-4, 3-38, 3-39, 9-19 

10-7 
Commands, 1-3 
Comments, 3-1 
COMPILE command, 
CTRL key, 1-5 

CTRL/B , 

CTRL/C, 

CTRL/0 , 

CTRL/P, 

CTRL/U, 

CTRL/Z, 



11-12 



11-19 

1-6, 11-18 

11-18 

11-19 

11-18 

11-19 



DATA Statement, 3-5, 3-33, 4-3 

5-7, 10-1 
Data storage, 7-1 
DATE$ function, 5-10, 9-21 
DEASSIGNED command, 11-16 
Debugging, 4-1 
DEF statement, 4-3 

multiple line, 9-1 

single line, 3-25, 5-9, 6-2 
DELETE command, 11-6 
DET, 8-6 

Device buffer sizes, 7-2 
Device codes, 11-16 
Devices, I/O, 7-1 
DIM statement, 3-17, 4-3, 5-3, 

7-8, 10-11 
Disk random access data storage. 
Dollar sign ($) , 2-4, 5-1, 5-2, 
DSK:, 7-1, 7-2 
DTAn:, 7-1, 7-2 
Dummy variables, 3-26 



Editing user program, 11-5 

END Statement, 3-42 

EQV, 2-9 

ERR, 9-5, 9-6 

ESCAPE key, 1-5, 11-17 

Example programs , 

9-8 
Exclamation mark (!), 

9-17, 10-7 
Exponentiation, 2-7, 2-8 
Expressions, 2-5 
Extension, file name, 7-2 
External data storage, 7-1, 7-8 



7-8 

7-1 



2-2, 3-36, 7-11, 
2-4, 3-1, 



File #J2, 7-5 

File deletion, 7-13 

File name specification, 

default device, 7-4 
Files, reopening, 7-7 
File storage, 7-1 
FNEND Statement, 4-3, 9-1 
FOR modifier, 9-14 
FOR statement, 3-12, 4-3 
FOR-UNTIL statement, 9-11 
FOR-WHILE statement, 9-11 
Functions 

integer, 3-22, 
mathematical, 3-20 
string, 5-9, 5-10 
user defined, 3-25, 9-2 



GOTO statement, 3-6, 4-3 
GOSUB statement, 3-31,4-3 



7-1, 7-3 



I-l 



HELLO command, 1-4, 11-1 



IDN, 8-4 

IF modifier, 9-12 

IF statement, 3-7, 3-16 

IF-GOTO, 3-7 

IF-THEN, 3-7 

IF-THEN-ELSE, 9-8 
Immediate mode, 4-1 

restrictions on, 4-3 
IMP, 2-9 

Input devices, 7-7 
INPUT statement, 3-6, 3-35, 10-2 

character string, 5-8 

external device, 7-3, 9-20, 10-2^/o-U 

printing of character strings, 3-35, 
10-3 
INPUT LINE 

external device, 10-3 

statement, 5-8, 9-20 
Integer arithmetic, 6-1 
Integer constant, 6-1 
Integer functions, 3-22 
Integer I/O, 6-2 
Integer variables, 6-1 
Internal file designator, 7-1, 7-6, 

7-7, 7-8, 7-10 
Intrinsic functions, 

character string, 5-10 

mathematical, 3-20 

matrix, 8-6 

print, 9-19 

system, 9-21 
Introduction to programming, 1-1 

to BASIC, 1-2 
INSTR function, 5-10 
INV function, 8-6 
Inversion of matrices, 8-6 



KEY command, 11-15 

Keys , terminal 
CTRL, 1-5 
CTRL/C, 1-6, 
CTRL/U, 1-6, 



11-18 

11-18 
ESCAPE or ALT MODE, 1-5, 11-17 
LINE FEED, 1-6, 9-10 
RETURN, 1-5, 11-16 
RUBOUT, 1-5, 11-17 
KILL Statement, 7-13 



LEFT function, 5-10 
LEN function, 5-10 
LENGTH command, 11-13 
LET statement, 3-2 

multiple assignment, 

omitting "LET", 3-3 
LINE FEED, 1-6, 2-3, 2-4, 5-2, 



3-4 



9-10 



lO-'^ , 9-20 



9-9, 



LIST command, 1-5, 11-7 
Logical operators, 2-9, 3-9 
Loop, 3-10, 3-11 

conditional termination, 9-10 

nested, 3-14 
LPT:, 7-1, 7-2 



Mathematical functions, 3-20 
Mathematical operators, 2-7 
MAT INPUT Statement, 8-3, 10-4 

from external devices, 10-4 
MAT PRINT statement, 8-1, 10-8 

to external devices, 8-2 
MAT READ statement, 8-1, 10-1 
Matrices, 3-17, 8-1 

addition, 8-6 

arithmetic, 8-5 

column, 8-3 

initialization, 8-4 

multiplication of conformable, 
8-6 

row, 8-3 

scalar multiplication, 8-6 

undimensioned, 3-18 

zero elements, 3-18, 8-1 
MID function, 5-10 
Mixed mode, 3-3 
9-12 
9-16 



Modifiers , 

multiple, 
MSR:, 7-1 

Multiple modifiers, 9-16 
Multiple statement lines, 

4-2 



2-3, 



Line numbers, 
range, 2-1 
use, 2-1 



2-1, 2-3, 2-7, 4-1 



NAME-AS Statement, 7-12 

Nested IF statements, 9-9 

Nested loops, 3-14 

NEW command, 11-3 

NEXT statement, 3-13, 4-3 

NONAME, 11-3, 11-4 

NOT, 2-9 

NUM$ function, 5-10 

Numbers, 2-5 

floating point, 2-7 

integer, 2-7, 6-1 

line numbers, 2-3 

number of significant digits, 
2-5 

scientific notation (E 
format) , 2-6 
Number sign (#) , 2-4, 7-3, 7-4, 
9-18, 11-1 



OLD command, 11-4 
ON-ERROR-GOTO subroutine, 9-4 

disabling, 9-7 
ON-GOSUB statement, 9-3 
ON-GOTO statement, 9-3 
On-line operations, 1-4, 11-1 



1-2 



Operators, 

arithmetic, 2-7 
logical, 2-9 
relational, 2-8 

Operator precedence, 



2-7 



OPEN statement, 

10-9 
OR, 2-9 
Output devices. 



7-2, 7-5, 7-10, 



7-6 



Parentheses, 2-4, 2-8 

Passwords, 1-4, 11-2 

Percent sign (%) , 2-4, 6-1 

POS function, 9-19 

Precedence of operators, 2-7 

PRINT functions, 9-19 

PRINT statement, 3-4, 3-37, 10-5 

character strings, 3-40, 3-41, 
10-5 

external device, 7-3, 7-6, 10-6 
10-7 

formatting in columns, 3-38, 
10-7 

output rules, 10-6 

tight packing, 3-39, 10-6 
PRINT-USING statement, 9-17, 10-7 
Priorities in IF statements, 3-10 
Program debugging, 4-1 
Programming, 1-1, 2-1 

see example programs 
Project-programmer numbers, 1-4, 

7-12, 11-1 
Protection codes, 7-12 
PTP:, 7-1, 7-2 
PTR:, 7-1, 7-2 



QUOTES (• and "), 2-4, 5-1, 5-7 



7-8 



Random access data storage, 
RANDOMIZE Statement, 3-24 
Random number function, 3-2 3 
Read protect, 7-13 
READ statement, 3-5, 3-33, 5-7, 

10-1 
READY, 1-4, 3-42 
Redimensioning matrices, 8-"^ 
Relational expression, 9-8 
Relational operators, "^ " 

5-3, 5-4 
Remarks, 3-1 
REM statement, 3-1 
RENAME command, 11-12 
Renaming files, 7-12 
REPLACE command, 11-12 
RESTORE statement, 3-34, 10-2 
RESUME statement, 9-6 
RETURN key, 1-5, 4-3, 11-16 
RETURN statement, 3-31 



2-8, 3-8, 



RIGHT function, 5-10 
RUBOUT key, 1-5, 11-5, 11-17 
RUN command, 1-5, 11-8 
RSTS-11 Manager's Guide, 1-1 



SAVE command, 11-9 

Semicolon (;), 2-4, 3-39, 9-19, 10-7 
Sign function, 3-21 
Single statement on multiple 
lines, 2-3 

length limit, 2-4 
SLEEP function, 9-21 
SPACE $ function, 5-10 
Spaces, 2-5, 5-4, 5-9, 9-19 
Square brackets, 1-3 
Statements, 1-3, 2-3 

multiple statements on a 
single line, 2-3 

order of evaluation, 2-1, 2-3 

single statement on multiple 
lines, 2-3 
Statement modifiers, 9-12 
STEP value, 3-13 
STOP statement, 3-42, 4-1 
String functions, 5-9, 5-10 
Subscripted variables, 3-16 
Subroutines, 3-30 
System library, 7-1 
System status, 11-13 



TAB function, 9-19 

TAB key, 11-18 

TAPE command, 11-14 

Teletype, 1-3 

Terminal, 1-3, 7-5 

Terminal value of loop, 3-13, 3-15, 

9-12 
TIME function, 9-21 
TIME$ function, 5-10, 9-21 
Time-sharing, 1-2 
•TMP, 7-2 

Transposition of matrices, 8-6 
TRN function, 8-6 
Truth tables, 2-10, 3-9 
TTY:, 7-1, 7-2 
TTYn, 7-1, 7-2 



Unconditional branch, 3-6 
Undimensioned matrices, 3-16 
UNLESS modifier, 9-14 
UNSAVE command, 11-10 
UNTIL modifier, 9-16 
Up-arrow (+) , 9-18, 10-7 
User-defined functions, 3-25 

integer, 6-2 

number of arguments, 3-27 

recursive, 3-27 

string, 5-9 



1-3 



User programs, 11-3 



VAL function, 5-10 
Variables, 2-7 

subscripted, 3-16 
Virtual core, 10-12 
Virtual core matrices 

character string lengths, 7-9 

default character string length, 7-9 

DIM statement, 7-8 



WAIT function, 9-22 
WHILE modifier, 9-15 
Write protect, 7-13 



XOR, 2-9 
ZER, 8-4 
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HOW TO OBTAIN SOFTWARE INFORMATION 

Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 

Digital Software News for the PDP-8 & PDP-12 

Digital Software News for the PDP-11 

Digital Software News for the PDP-9/15 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist, In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bidg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete Investigation. An answer will be sent to the 
individual and appropriate topics of general Interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Program Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 
146 Main Street, Bidg. 3-5 
Maynard, Massachusetts 01754 
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READER'S COMMENTS 



Digital Equipment Corporation maintains a continuous effort to Improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual. 

Please comment on this manual's completeness, accuracy, organization, usability and read- 
ability. 



Did you find errors in this manual? If so, specify by page. 
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